title image


Smiley Re: Datei auslesen
Hallo Lan-Netzwerk,



So etwas?

<% @ Language="VBScript" %><% Option Explicit'Variablen & Konstanten erstellenDim fso, fsoFile, Pfad, Text, SuchText, iConst ForReading = 1, ForWriting = 2, ForAppending = 8Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0'Pfad der TextdateiPfad = "D:\Inetpub\wwwroot\Beispielseiten\Test.txt"'Objekte erstellenset fso = Server.CreateObject("Scripting.FileSystemObject")If fso.FileExists(Pfad) Then  set fsoFile = fso.OpenTextFile(Pfad, ForReading , true, TristateFalse)Else  Response.Write("Kleiner Fehler: Datei ist nicht vorhanden.")End if'vbBinaryCompare=GrossKleinschreibung wird beachtet'vbTextCompare=GrossKleinschreibung wird nicht beachtet'Nach welchem Buchstaben/Wort/Wörter soll gesucht werden?SuchText = "Test"'i = Zeilenzähler auf 1 setzeni = 1'Text aus Datei lesen und ausgebenDo while not fsoFile.AtEndOfStream  Text = fsoFile.ReadLine  If instr(1,Text,SuchText,vbTextCompare) > 0 Then    Response.Write("<br>Treffer in Zeile " & i)  Else    'Kein Treffer    End if  i = i + 1Loop'TextDatei schliessen und Objekte terminierenfsoFile.closeset fsoFile = nothingset fso = nothing%>

MfG & CU & Thänx weri Matsch
Klaus Keller

http://www.asphelper.de - aspkurs, Fehlercodes, Tipps & Skripts, VBScript-Referenz, Forum

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: