"We are back" « oc.at

VB: Text aus Datein umändern

jayjay 01.07.2002 - 14:52 2294 30
Posts

Spy

Big d00d
Avatar
Registered: Jul 2002
Location: Wien
Posts: 237
ka ob dus schon geschafft hast aba versuchs so:
sag ma das die datei BlaBla.txt heist.. gib a TextBox auf die form drauf.. und mach MultiLine = True..
und drin steht sowas (in der BlaBla.txt datei):

Firma=What?
WhoWhere=AhaYeah..
VersionNumber=44532345334

so.. du willst jetzt halt die Ver. Number auslesen

Dim StringHolder As String
Open App.Path & "\BlaBla.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, StringHolder
If InStr(1,StringHolder,"VersionNumber") Then
Text1.Text = Text1.Text & "VersionNumber=" & "4543545" 'die neue numma halt
Exit Do
End If
Text1.Text = Text1.Text & StringHolder
DoEvents
Loop
Close #1

Open App.Path & "\BlaBla.txt" For Output as #1
Print #1, Text1.Text
Close #1


hoffe das dir das weiter hilft..

bye :)
Bearbeitet von Spy am 03.07.2002, 22:51
Kontakt | Unser Forum | Über overclockers.at | Impressum | Datenschutz