kann mir jemand befehle sagen in vbscribt zum öffnen von dateien? danke im vorraus
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
UselessUser T-Rex „Du hast nur die Möglichkeit, über das FileSystem-Objekt zu gehen....“
Hallo alex145,
bin schon ein bisschen spät dran in diesem Thread und mein ausgegrabenes Beispiel-Skript ist auch nicht besonders funktionell, aber es zeigt dir das Grundprinzip:
'--------------- BEGINN SCRIPT
'Dieses Skript zeigt, wie Daten aus Textdateien eingelesen
'und verarbeitet werden können.
'+++++++++++++ Declaration +++++++++++++
Const Dateiname = "[HIER DIE PFADANGABE]\Datafile.txt"
Const ForReading=1, ForWriting=2, ForAppending=8
Dim Datei, FileSyst
'+++++++++++++ Main +++++++++++++++++
DateiOeffnen
Msgbox DateiAuslesen ()
Datei.Close
'++++++++++++ Procs & Subs +++++++++++
Sub DateiOeffnen ()
Set FileSyst = CreateObject ("Scripting.FileSystemObject")
If not FileSyst.FileExists (Dateiname) Then
Msgbox "Die Datei ist nicht vorhanden!"
WScript.Quit
End If
Set Datei = FileSyst.OpenTextfile (Dateiname, ForReading, false)
End Sub
Function DateiAuslesen ()
Dim Text, Textalt
Do
Textalt = Text
Text = Datei.ReadLine
Loop Until Datei.atendofstream = true
If Text = "" or Text = " " Then Text = Textalt
DateiAuslesen = UserName (Text)
End Function
Function UserName (ByVal Text)
Dim Von, Bis
Von = InStr (1, Text, vbTab)
Bis = InStr (Von + 1, Text, vbTab)
UserName = Mid (Text, Von + 1, Bis - Von)
End Function
'------------------ ENDE SCRIPT
HTH
UselessUser
