Set WshShell = CreateObject("Wscript.Shell")
Pfad = WshShell.CurrentDirectory
 
If Right(Pfad,1)<>"\" then
	Pfad = Pfad & "\"
end if
 
Pfad = Pfad & "test.txt"
 
Set FSO=CreateObject("Scripting.FileSystemObject")
 
If (FSO.FileExists(Pfad)) Then
 
	Set f = FSO.OpenTextFile(Pfad, 1)
 
		Do While f.AtEndOfStream <> True AND Left(Zeile, 10) <> "IP-Adresse"
 
			Zeile = f.Readline
 
		Loop
 
		x = InStrRev(Zeile, ":")
 
		Zeile = Right(Zeile, Len(Zeile) - x)
 
		msgbox zeile
 
	f.Close
 
End If

  Const ForReading = 1, ForWriting = 2
 
  Dim fso, MeineDatei, i, j, l, l2 
 
 
 
  Settimeou
  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