由string中提取由某符號(本例用",")相隔的各個data

要list1,command1,text1,text2

Dim first, sec As Integer
Dim str1 As String
Private Sub Command1_Click()
On Error Resume Next
first = 0
sec = 0
str1 = Text1
Text1 = Text1 & “,"
For i = 1 To 40
sec = InStr(first + 1, Text1, “,") ‘開頭1 ,insert
If sec < first Then Exit For
Text1.SelStart = first ‘開頭0

Text1.SelLength = sec – first – 1
List1.AddItem (Text1.SelText)
first = sec
Next i
Text1 = str1
For i = 0 To List1.ListCount
Print List1.List(i)
Next i
End Sub

本例由text1提取到list1,可提取list1.list(i)到其他地方
當然可以換其他符號,要同時換兩處

廣告

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

您的留言將使用 WordPress.com 帳號。 登出 / 變更 )

Twitter picture

您的留言將使用 Twitter 帳號。 登出 / 變更 )

Facebook照片

您的留言將使用 Facebook 帳號。 登出 / 變更 )

Google+ photo

您的留言將使用 Google+ 帳號。 登出 / 變更 )

連結到 %s


%d 位部落客按了讚: