VB: Text aus Datein umändern - Seite 3

Seite 3 von 3 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/vb_text_aus_datein_umaendern_39674/page_3 - zur Vollversion wechseln!

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

overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2026