VBSCRIPT字串處理範例

 

若要解析這段
10056臺北市中正區  仁愛路２段            雙  48之   1號至  64號 
可以用字串分割、擷取部分文字以及判斷字串長度來完成


'讀取每一行有文字的字串
While Not RR.atEndOfStream       
Line = RR.ReadLine  
'擷取字串分割
arr=split(Line," ")          
'解析以空白分開後的字串
for i=0 to UBound(arr)

select case i
 case 0
'擷取前五個字
   Response.Write "AA  :"&   left(arr(i),5)   & "  "
'擷取之後的中文
   Response.Write "A  "& mid(arr(i),5,len(arr(i)))   & "  "
 case 1
 '擷取路段
  Response.Write "B  "& arr(i) & "  "
 case 2
 '擷取單全
   Response.Write "C  "& arr(i) & "  "
 case 3
 '擷取號碼
   Response.Write "D  "& arr(i) & "  "
case 4
   Response.Write "E  "& arr(i) & "  "
case 5
   Response.Write "F  "& arr(i) & "  "

end select

next
Response.Write  "<p><p>"
Wend