I am using Swish2.0 on windows, and I have ASPexec set up, which pulls DOS
results into a web window.
But parsing them is a problem: This kind of works, but everything has the
same link? Any suggestions for improvement?
<!--This splits the string into 6 pieces. The 6th piece is the filename-->
bString=Split(Executor.ExecuteDosApp, "#")
arr1=bString(0)
arr2=bString(1)
arr3=bString(2)
If Ubound(bstring) > 3 Then
arr4=bString(3)
arr5=bString(4)
arr6=bString(5)
arr7=bString(6)
arr8=bString(7)
arr9 =bString(8)
arr10 =bString(9)
arr11 =bString(10)
arr12 =bString(11)
arr13 =bString(12)
arr14 =bString(13)
arr15 =bString(14)
arr16 =bString(15)
arr17 =bString(16)
arr18 =bString(17)
arr19 =bString(18)
arr20 =bString(19)
arr21 =bString(20)
arr22 =bString(21)
arr23 =bString(22)
arr24 =bString(23)
arr25 =bString(24)
arr26 =bString(25)
arr27 =bString(26)
arr28 =bString(27)
'arr29 =bString(28)
'response.write arr8
'response.write arr9
'response.write arr10
'response.write arr11
<!--This cuts off the ./ from the filename-->
'arr6=Trim(Right(bString(5),len(bString(5))-2))
'abba=Right(arr6,len(arr6)-2)
'response.write abba
'response.write arr1
'response.write arr2
'response.write arr3
'response.write arr4
'response.write arr5
'response.write arr6
'response.write arr7
'response.write arr8
<!--This returns just the file name with a link to the file name-->
arr29=Trim(Right(bString(28),len(bString(28))-24))
StartPos = InStr(arr29,":") + 1
EndPos = InStr(arr29,"~") - StartPos
NewStr = Mid(arr29,StartPos,EndPos)
response.write startpos
response.write endpos
response.write newstr
Response.write "Search Results"&vbnewline&vbnewline
Response.Write "<pre><a href="&"file:///c:/myfold~1/bagoft~1/"&" arr29 " &"
"&">" & arr29 & "</a></pre>"
else
Response.Write "No Results Found"
end if
response.write newstr
Received on Wed May 30 19:20:39 2001