skrive til hd

[NightMaree]

hei

vis f.ek.

text1.text = "hallo"

 

 

så sko eg hatt et command knapp så skreiv de te ei text fil på hardiksen... ke e koden for d

[Jonas]

Jeg har sett mange måter, men jeg bruker alltid denne måten: (som står i aadnk's guide)

Open "C:\testfil.txt" For Output As #1
Print #1, Text1.Text
Close #1

[aadnk]

For å skrive, slette og manipulere informasjon på harddisken bruker du Open-kommandoen. For å skrive "hallo" i en tekstfil, og slette alt innhold hvis den eksisterer, eller skape den hvis den ikke eksisterer, bruker du denne koden:

 

Dim sPath As String, Free As Long

sPath = "C:\Test.txt" ' Dette er stien til filen du ønsker å skrive til
Free = FreeFile ' På denne måten kan du ha flere filer åpnet samtidig

Open sPath For Output As #Free ' Åpner filen
Print #Free, "hallo" ' Skriv ÈN linje til filen
Close #Free ' Lukker filen

 

Hvis du kun vil legge til linjer i tekstfilen, og ikke slette den, erstatter du Open-linjen med dette:

 

Open sPath For Append As #Free ' Åpne filen

 

Når du skal lese fra en fil, gjøres dette som oftest på denne måten:

 

Dim sPath As String, sLine As String, sTemp As String, Free As Long

sPath = "C:\Test.txt" ' Dette er stien til filen du ønsker å skrive til
Free = FreeFile ' På denne måten kan du ha flere filer åpnet samtidig

Open sPath For Input As #Free ' Åpner filen
   Do Until EOF(Free) ' Avslutter når vi har nådd til den siste linjen
       Line Input #Free, sLine ' Laster inn alle linjer enkeltvis
       sLine = sLine & sTemp & vbCrLf ' Legg til denne linjen
   Loop
Close #Free ' Lukker filen

' Vis innholdet i filen
MsgBox sLine

 

Men, du kan også gjøre det på denne måten:

 

Dim sPath As String, sLine As String, Free As Long

sPath = "C:\Test.txt" ' Dette er stien til filen du ønsker å skrive til
Free = FreeFile ' På denne måten kan du ha flere filer åpnet samtidig

Open sPath For Binary As #Free ' Åpne filen
   sLine = Space(LOF(Free))
   Get #Free, , sLine
Close #Free ' Lukk filen

' Vis innholdet i filen
MsgBox sLine

 

Håper dette hjalp deg en smule.

 

EDIT: Oisann, var visst litt treg der.

Endret 15. desember 2004 av aadnk