17. marts 2007 - 10:17
Der er
1 kommentar og
1 løsning
Find et = og print alt til højre for
Hej E!
Jeg indlæser en tekstfil og læser den linie for linie.
Hvis en line starter med "DomainSites=" uden " så skal jeg bruge alt det tekst der står til højre for =
Det her er hvad jeg gør indtil videre
Const ForReading = 1, ForWriting = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
SourceFile = "in.put"
DestFile = "out.put"
set FileRead = fso.OpenTextFile(SourceFile, ForReading, True)
set Fileout = fso.OpenTextFile(DestFile, ForWriting, True)
Do Until FileRead.AtEndOfStream
strNextLine = FileRead.Readline
ValLen=len(strNextLine)
If Instr(1,strNextLine,"DomainSites=",1) Then
strResult = Right(strNextLine,(ValLen)
FileOut.WriteLine strResult
Wscript.Echo strResult
End If
Loop
FileOut.close
Nogen der kan finpusse min kode
18. marts 2007 - 09:14
#1
Hey Skeleton !
Det ser da ikke ud som om, der noget galt med din kode (ud over, at der mangler en paranthes i linie 15)
Hivs du KUN vil have det, der står til højre for, kan du bare replace DomainSites ud af strengen :
Const ForReading = 1, ForWriting = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
SourceFile = "C:\Users\mbo\Documents\test.txt"
DestFile = "C:\Users\mbo\Documents\test2.txt"
set FileRead = fso.OpenTextFile(SourceFile, ForReading, True)
set Fileout = fso.OpenTextFile(DestFile, ForWriting, True)
Do Until FileRead.AtEndOfStream
strNextLine = FileRead.Readline
ValLen=len(strNextLine)
If Instr(1,strNextLine,"DomainSites=",1) Then
strResult = Right(strNextLine,(ValLen))
FileOut.WriteLine replace(strResult,"DomainSites=","")
Wscript.Echo replace(strResult,"DomainSites=","")
End If
Loop
FileOut.close
/Killer
