Skip to main content.
home | support | download

Back to List Archive

ASPEXEC and Parsing Swish2.0 results

From: Eric Haymaker <ehaymaker(at)not-real.aphelion.net>
Date: Wed May 30 2001 - 19:19:53 GMT
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