|
| Autor |
Nachricht |
nom_ Banned

Anmeldedatum: 15.09.2007 Beiträge: 75
|
Datei lesen
Verfasst am: 19.09.2007, 06:42 |
|
|
Hi
ich weis im wesentlichen wie ich eine Datei lesen oder schreiben kann. Mein Problem ist nur, die erste Zeile in Varbiable 1 die zweite in Variable 2 und die dritte in Variable 4 zu speichern.
Da ich diese gesondert verwenden will.
danach will ich noch den hier machen
[vb:1:868e404978]message_value() = Split(message, "=")[/vb:1:868e404978]
da ich in einer txt datei das stehen habe:
text=You got Owned
time=100
key=98
mfg
nom |
|
| |
|
 |
crusader727_ Tutorial Leser

Anmeldedatum: 12.05.2007 Beiträge: 44
|
Verfasst am: 19.09.2007, 09:49 |
|
|
fürs speichern + öffnen gibts ne video lesson...
splitten nach jeder zeile geht mit vbnewline |
|
| |
|
 |
nom_ Banned

Anmeldedatum: 15.09.2007 Beiträge: 75
|
Verfasst am: 19.09.2007, 12:25 |
|
|
hmm ja die datei lesson hab ich gescheut und verstanden aber will das ja net in zeilen splitten sondern gleich die ganze zeile 2 in die variable 2 einlesen
mfg
nom
Kanste mir ein beispiel geben?
das
txt:
message=lol
time=100
key=98
und dann
variable message=lol
variable time=100
variable key=98 |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 19.09.2007, 12:34 |
|
|
[vb:1:a7ae1cbb61]
Open "..." For Input as #1
Line Input #1, variable message
Line Input #1, variable time
Line Input #1, variable key
close
[/vb:1:a7ae1cbb61]
Ich würde dir aber eher zu einer Schleife und einem Array raten. Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |
nom_ Banned

Anmeldedatum: 15.09.2007 Beiträge: 75
|
Verfasst am: 19.09.2007, 13:29 |
|
|
mit array also so:
[vb:1:1a3b0d33ac]dim settings() as string
Open "settings.ini" for input as #1
While not EOF(1)
Line Input #1, settings()
Wend
Close #1
[/vb:1:1a3b0d33ac]
???
mfg
nom |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 19.09.2007, 14:10 |
|
|
[vb:1:843cd69222]
Dim settings() As String, zCount as long, buffer as string, i as long
Open "settings.ini" For input As #1
zCount = 0
While Not EOF(1)
Line Input #1, buffer
zCount = zCount +1
Wend
Seek #1, 1
Redim settings(zCount)
For i = 0 to zCount-1
Line Input #1, settings(i)
next i
Close #1
[/vb:1:843cd69222] Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |
nom_ Banned

Anmeldedatum: 15.09.2007 Beiträge: 75
|
Verfasst am: 19.09.2007, 15:26 |
|
|
gut dafür danke ich dir erstmal aber ich habe da noch das problem dass ich einem timer inteval kein variable zuweisen kann die ein string ist.
mfg
nom
bekommst auch "Credits"/Link |
|
| |
|
 |
413X_ « Moderator »

Anmeldedatum: 16.12.2006 Beiträge: 266
|
Verfasst am: 19.09.2007, 15:41 |
|
|
Nimm doch einfach die WriteINI bzw ReadINI?
-zu finden unter WritePrivateProfileString bzw GetPrivateProfileString API!
Gibt's auch was im Forum dazu, wenn nich dann Google ^^
http://www.413x.dl.am
Tod den 1337-Scriptkiddies xD |
|
| |
|
 |
ZiG_ Überflieger

Anmeldedatum: 07.03.2007 Beiträge: 1248
|
Verfasst am: 19.09.2007, 15:50 |
|
|
Mach dir einfach eine long Variable oder eine Integer. Übergib zuerst an diese den string und dann an den Timer.
Gibt sicher auch eine Funktion dafür, aber die weiß ich jetzt nicht. Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
 |