DAT filer

Jeg er ved at lave et spil som skal gemme nogle karakteres evne værdier. Hvordan får jeg dem gemt i en DAT fil så de kan åbnes af mit program.

Hej
Det kan du gøre ved at gemme data'erne i en fil
Til at gemme skal du bruge denne kode:

Dim intFilNummer As Integer
intFilNummer = FreeFile

DIM KARAKTERNAVN AS STRING
KARAKTERNAVN="MINkarakter"

IF KARAKTERNAVN="" THEN: EXIT SUB

Dim strFilSTI As String
Let strFilSTIn = app.path+"\\"+KARAKTERNAVN+".DAT"

Dim strSTYRKE As String
Dim strKRAFT As String
Dim strENERGI As String

Dim strData As String
strData = "STYRKE=" + STRSTYRKE + VBNEWLINE + "KRAFT=" + STRKRAFT + VBNEWLINE + "ENERGI=" + STRENERGI

Open strFilSTI For Binary As #intFilNummer
Put #intFilNummer, , strData
Close #intFilNummer

På den måde kan du gemme dem i en fil.
Men det er bare et eksempel.
Jeg syntes at du skal læse artiklen GrundLægende Filhåndtering.
Den burde indeholde det du skal bruge. Du skal bare tænke kreativt. Hvis du får nogle problemer skal du bare sige til.
Håber du kan bruge det.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

[Redigeret d. 03/10-04 17:25:42 af Jonas Termannsen]

kan man også bare skabe sin egen filtype som man for eksempel kaldte "minfil.tup" eller noget andet?

kan man også bare skabe sin egen filtype som man for eksempel kaldte "minfil.tup" eller noget andet?

JEP.
Det er jo det der er det gode.
Du kan jo også kalde den: .jeg-ved-ikke-hvad-denne-fil-type-skal-hedde .
Men hvis du skal gøre sådan at man i registererings databasen
Tilføjer den så den har icon og åbens med det program så skal man enten åbene den på brugerens computer eller køre en kode som gør det. Jeg mener jeg har koden et sted.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Det gør ikke noget hvis du ikke har den, hvis du bare kan give mig en side hvor jeg kan finde den.
Dog ville det andet (hvis du har koden) være bedre.

(ps: du har fået dine point)

Det gør ikke noget hvis du ikke har den, hvis du bare kan give mig en side hvor jeg kan finde den.
Dog ville det andet (hvis du har koden) være bedre.

(ps: du har fået dine point)

Hej jeg vil bare sige jeg har fundet koden.
Men jeg har dog lidt problemer med den da jeg lige skal
finde ud af hvordan REGEDIT virker.
Men den er snart klar.
PS. .DAT filer er allerede brugt af: DivX og Windows.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Hej her er koden. Jeg ved bare ikke hvad der skal skrives der hvor der står X

Dim wsh
Set wsh = CreateObject("WScript.Shell")
wsh.RegWrite "HKEY_LOCAL_MACHINE\\SOFTWARE\\OG STI", X <-- DATA
Set wsh = Nothing


---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Hej efter en god jagt i regedit har jeg fundet ud af hvilkne data dit program behøver!
HKEY_CLASSES_ROOT\\.(Dit Fil Navn)-(Dit Fil Navn)_AUTO_FILE
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT-&Rediger
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT\\COMMAND-C:\\WINDOWS\\notepad.exe %1
De ting der står ovenover er de nøgler du skal bruge.
Efter bindestreg er værdien. for at skrive den kode skal du bruge.

   Dim wsh
    Set wsh = CreateObject("WScript.Shell")    
    wsh.RegWrite "HKEY_CLASSES_ROOT\\.(Dit Fil Navn)\\(Standard)", "(Dit Fil Navn)_AUTO_FILE"

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\(Standard)", ""

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\(Standard)", ""

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT\\(Standard)", "&Rediger"

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT\\COMMAND", "C:\\WINDOWS\\notepad.exe %1"
    Set wsh = Nothing

(Dit Fil Navn) Skal ændres til fks. .Max hvis dit filnavn hedder det.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Hej efter en god jagt i regedit har jeg fundet ud af hvilkne data dit program behøver!
HKEY_CLASSES_ROOT\\.(Dit Fil Navn)-(Dit Fil Navn)_AUTO_FILE
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT-&Rediger
HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT\\COMMAND-C:\\WINDOWS\\notepad.exe %1
De ting der står ovenover er de nøgler du skal bruge.
Efter bindestreg er værdien. for at skrive den kode skal du bruge.

Kode 

   Dim wsh
    Set wsh = CreateObject("WScript.Shell")    
    wsh.RegWrite "HKEY_CLASSES_ROOT\\.(Dit Fil Navn)\\(Standard)", "(Dit Fil Navn)_AUTO_FILE"

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\(Standard)", ""

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\(Standard)", ""

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT\\(Standard)", "&Rediger"

    wsh.RegWrite "HKEY_CLASSES_ROOT\\(Dit Fil Navn)_AUTO_FILE\\SHELL\\EDIT\\COMMAND", "C:\\WINDOWS\\notepad.exe %1"
    Set wsh = Nothing

(Dit Fil Navn) Skal ændres til fks. .Max hvis dit filnavn hedder det.
øh. Den kode jeg fandt virkede åbenbart ikke. Men indstillingerne er rigitige.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?