獲取特定的字串 (轉)

獲取特定的字串 (轉)[@more@]

  為了建立一個通用的投票調查，往往不能確定有多少選項，普通的作法就是建立多個欄位，比如10個欄位，但要是多餘10個選項就不行了。所以基於這種考慮，我設計了只需一個欄位（當然長度夠長或是備註型）就可以實現。
aaadfgfga||bfgbbb||ccdfgsgcc||ddfdsf||...||
為了實現讀取"||"之間的內容，我編寫了如下程式碼
'SStr：表示分隔字串，LStr：表示要搜尋的字串，i：表示要取第幾段字串
Function GetStr(SStr,LStr,i)
dim ks,js,cd,wz,j'ks:表示開始，JS：計數，cd：長度，wz：位置，j：迴圈變數
  cd=Len(LStr)
  ks=1
  For j=1 to i
  wz=InStr(ks,LStr,SStr)
  If wz=0 then
  StrLen=""
  else
  StrLen=Mid(LStr,ks,wz-ks)
  ks=wz+2
  end if
  Next
End Function
這是我編寫的，彼此共享。