Set FSO = CreateObject("Scripting.FileSystemObject") Set TextStream = FSO.OpenTextFile(filename, 1, False, -1) Str = TextStream.Read(256) TextStream.Close N1 = InStr(Str, "<string>") If IsNumeric(N1) = False Then WScript.Quit N2 = InStr(N1, Str, "</string>") content = Mid(Str, N1 + 8, N2 - (N1 + 7))
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
