Const ForReading = 1, ForWriting = 2
Dim fso, MeineDatei, i, j, l, l2
zaehler = 0
Hilfsvariable1 = "IP-Adresse"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MeineDatei = fso.OpenTextFile("C:\Programme\SIEMENS\STEP7\S7Proj\Test_Dia\ip.txt", ForReading)
i = 0
Do While Not MeineDatei.AtEndOfStream
LeseZeile = MeineDatei.ReadLine()
If InStr(1,LeseZeile, Hilfsvariable1) <> 0 Then
Hilfsvariable2 = "Suchstring gefunden " & "in Zeile: " & i
Exit Do
End If
i = i+1
Loop
LaengeLeseZeile = Len(LeseZeile)
For j = 1 To LaengeLeseZeile
Hilfe1 = Right(LeseZeile, LaengeLeseZeile - j)
Hilfe2 = Left(Hilfe1, 1)
If Hilfe2 = "0" Then j = LaengeLeseZeile
If Hilfe2 = "1" Then j = LaengeLeseZeile
If Hilfe2 = "2" Then j = LaengeLeseZeile
Next
LaengeHilfe1 = Len(Hilfe1)
For l = 1 To LaengeHilfe1
Hilfe3 = Right(Hilfe1, l)
Hilfe4 = Left(Hilfe3, 1)
zaehler = zaehler +1
If Hilfe4 = "0" Then l = LaengeHilfe1
If Hilfe4 = "1" Then l = LaengeHilfe1
If Hilfe4 = "2" Then l = LaengeHilfe1
If Hilfe4 = "3" Then l = LaengeHilfe1
If Hilfe4 = "4" Then l = LaengeHilfe1
If Hilfe4 = "5" Then l = LaengeHilfe1
If Hilfe4 = "6" Then l = LaengeHilfe1
If Hilfe4 = "7" Then l = LaengeHilfe1
If Hilfe4 = "8" Then l = LaengeHilfe1
If Hilfe4 = "9" Then l = LaengeHilfe1
Next
Hilfsvariable3 = LaengeHilfe1 - zaehler +1
Hilfsvariable4 = Left(Hilfe1,Hilfsvariable3)
IPadresse = Hilfsvariable4