im not a familiar with programming basics.<\/p>\n
im getting ‘Run time error 424 ‘ object required, when executing the script provided in #5<\/p>\n
im using the script as macro in Excel, any idea what im doing wrong?<\/p>\n
Sub XMLFind()
\n‘==== begin vbscript “xmlfind”
\nIf wscript.arguments.Count < 1 Then
\nwscript.echo “Usage: XMLFIND C:\\Users\\vik\\Documents\\XMLTest\\CD_catalog.xml targetstring”
\nwscript.Quit
\nEnd If
\ntarg = wscript.arguments(1)
\nSet fso = CreateObject(“scripting.filesystemobject”)
\nSet test = fso.opentextfile(wscript.arguments(0), 1)
\nZ = test.readall
\n‘remove lcase() from foll line to observe case in search
\npoint1 = InStr(LCase(Z), LCase(targ))
\nIf point1 = 0 Then
\nwscript.echo “NOT FOUND: string: ” & targ
\nwscript.Quit
\nEnd If
\npoint1 = point1 + Len(targ)
\nfound = LTrim(Mid(Z, point1))
\nquote = Left(found, 1)
\nfound = Mid(found, 2)
\npoint2 = InStr(found, quote)
\nIf point2 > 0 Then
\nfound = Left(found, point2 – 1)
\nEnd If
\nwscript.echo Chr(34) & found & Chr(34)
\n‘===== end vbscript
\nEnd Sub<\/p>\n