作者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