Hurtig hjælp til søgning i tekstfil
HejsaDer er 150 point til en hurtig hjælper...
Jeg har en tekstfil som indeholder sektioner:
[abc]
[123]
[osv]
Disse sektioner indeholder værdier:
abc=abc
bca=dfr
osv...
Det jeg skal kunne er at finde den værdi EFTER "="tegnet (f.eks. abc) og derefter returnere det som står FORAN "="tegnet. I ovenstående skal en søgning på "dfr" returnere "bca". Visse steder kan der stå det samme både foran og efter "="tegnet. (abc=abc). MEN der skal KUN søges i en bestemt sektion [abc].
Jeg er nået frem til nedenstående indtil videre:
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists("X:\fil.txt") then
set sFile=fso.opentextfile("X:\fil.txt", 1)
sSearchString ="abc]"
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set sFile=fso.opentextfile("X:\fil.txt", 1)
Resultat = ""
tSearchstring="="&ucase(sVar)
Do
sCurLine = sFile.ReadLine
If InStr(sCurLine, "[""" & sSearchString & """") > 0 Then
sCurLine = sFile.ReadLine
If InStr(sCurLine, tSearchstring) >0 Then
aValue = Split(sCurLine, "=")
Resultat = Trim(Replace(aValue(1), """", ""))
Exit Do
End If
End If
Loop Until sFile.AtEndOfStream
sFile.Close
Set sFile= Nothing
Set fso = Nothing
else
end if
Håber meget på hurtig assistance.
