如何将文本框中的数据按逗号拆分??

asterkid

请问,如何将文本框中的数据按逗号拆分.谢谢

petrelai

你可不可讲清楚一点呀,看不懂呀

totoyy

用取字串的函数来实现

hi-wzj

用instr函数来查，所在位置。
用mid函数来截取。

asterkid

这样,现在文本框中输入一些数值,而且这些数值已逗号分开,我想把整个文本框中的数值以逗号为界拆分开来,如文本框中的数值为: "a1,a2,b1,b2", 拆分后为a1\a2\b1\b2四个不同的值

我同意

可以参照李寻欢大师的例子,按需要自己修改.

去除带有分隔符的字符串中的字母

Public Function spMyString(MyString As String, Sep_symbol As String) As String
'*********************************************************************
'* 函 数 名: spMyString
'* 功能描述: 去除带有分隔符的字符串中的字母
'* 函数说明:参数1（MyString）用来接受传入的待处理字符串
'*          参数2（Sep_symbol）用来接受传入的分隔符
'* 调用函数: Split、UBound、Val
'* 全局变量:无
'* 输 入: 字符串及分隔符
'* 返 回:字符串
'* 设 计 者：李寻欢 日期：2004-2-24
'* 修 改 者：李寻欢 日期：2004-2-26
'* 使用示例：?spMyString("1237df-12yt-12ew45","-")
'*            1237-12-1245
'***********************************************************************

Dim myArray() As String
Dim i As Integer
myArray = Split(MyString, Sep_symbol)
For i = 0 To UBound(myArray)
    If i <> 0 Then
        spMyString = spMyString & Sep_symbol & Val(myArray(i))
    Else
        spMyString = spMyString & Val(myArray(i))
    End If
Next
End Function

[此贴子已经被作者于2004-5-11 11:02:30编辑过]

土豆

SPLIT函数

huanghai

土豆说得对，SPLIT函数在这类用法中很方便，具体使用可见SPLIT函数相关帮助。