作者Lohasal (生命奇蹟小狐狸)
看板Visual_Basic
標題Re: [VBA ] 請問如何剖析文字串
時間Fri Apr 6 22:54:13 2007
嘗試寫出來的Code
不知道什麼可以改進的地方
麻煩大大們請指教
Function DivChr(aaa As String, Addr As Integer) As String
' Dim DimA As String
Const DimA = 200
' Dim AAA As String * DimA
Dim Tmp As String
Dim A1 As String * 1
' Dim Addr As Integer
Dim Tag As Integer
Dim Tag2 As Integer
Dim I As Integer
Dim J As Integer
Tag = 0
Tag2 = 0
For I = 1 To DimA Step 1
Tmp = Left$(aaa, I)
Debug.Print Tmp
Tag2 = Len(Tmp)
A1 = Right$(Tmp, 1)
Debug.Print A1
If Chr(32) = A1 Or Chr(44) = A1 Then
If Tag = 0 Then
Tag = 0
ElseIf Tag = 1 Then
Tag = 2
Tag2 = Tag2 + 1
If Tag2 = Addr Then Exit Function
End If
End If
If Chr(32) <> A1 And Chr(44) <> A1 And Chr(12) <> A1 Then
Tag = 1
DivChr = DivChr & A1
End If
Next I
End Function
※ 引述《myidname (你碰不得的男人)》之銘言：
: 請問版上大大
: 若我有一個string被空白或者豆號分開
: 示意如下 " year , what line go "
: 這個自串前後都有空白，其間使用空白或豆號隔開
: 當空白或豆號的位置不定
: 要如何解析出year,what,line,go這四個不同單字
: 感激不盡～
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.126.36.113