VB: Text aus Datein umändern
jayjay 01.07.2002 - 14:52 2294 30
Spy
Big d00d
|
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
|