PDA

Vollständige Version anzeigen : Datei durchsuchen und Werte prüfen


myrix
14.01.2006, 23:22
HI.

Ich hab folgendes Problem

Ich hab hier eine CSV-Datei die sieht so aus

Pass1;Name1
Pass2;Name2

jetzt möchte ich über ein VBScript in der CSV-Datei nach "Pass1" suchen und es soll mir "Name1" ausgegeben werden. wenn "Pass1" nicht gefunden wird, muss ich das aber auch wissen.

kann mir jemand helfen?

Joachim Hofmann
16.01.2006, 12:54
Dürfte die Lösung auch eine simple Batch-Datei sein, oder muß es VBS sein?

myrix
17.01.2006, 13:31
am liebsten wär mir vbs, weil das in eine vorhandenes Script rein soll, und ich das nicht umschreiben will.

~~~dexter~~~
17.01.2006, 14:23
@myrix

Hier hast Du:

Option Explicit
Dim DateiSytem, Datei
Dim TextZeile, TextTeile
Dim Gefunden
Const SUCHEN = "Pass1"

Gefunden = false
Set Dateisytem=CreateObject("Scripting.FileSystemObject")
Set Datei = DateiSytem.OpenTextFile("C:\test.csv", 1, False)

while not Datei.AtEndOfStream
TextZeile=Datei.Readline()
TextTeile=Split(TextZeile,";")
If TextTeile(0) = SUCHEN Then
WScript.echo TextTeile(1)
Gefunden = true
End If
wend
Datei.Close
If Gefunden = false Then
WScript.Echo SUCHEN & " wurde nicht gefunden!"
End If

~~~Dexter~~~

myrix
17.01.2006, 18:07
COOL vielen dank ~~~Dexter~~~ du hast mir damit viel geholfen