VB 如何取字符串

Question

已经A="11-大家好"
    B="12-新年好"
    C="1-888"分界符号是"-"
可以通过什么函数取到前面的数字?如何操作?

Answer 1

Split函数
      描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分：部分 描述 
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 
设置值compare参数的设置值如下：常数 值 描述 
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。 
vbBinaryCompare 0 执行二进制比较。 
vbTextCompare 1 执行文字比较。 
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 

Answer 2

下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。 
Dim MyString, MyArray
MyString = Split("VBScriptXisXfun!", "x", -1, 1)
' MyString(0) 包含"VBScript"。
' MyString(1) 包含"is"。
' MyString(2) 包含 "fun!"。

Answer 3

没数组就用Mid截取，麻烦 点
需要 先用Instr定位-在什么位置

Answer 4

Mid 函数示例
本示例使用 Mid 语句来得到某个字符串中的几个字符。Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"   建立一个字符串。
FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"。
MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"。

Answer 5

InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' 被搜索的字符串。
SearchChar = "P"   ' 要查找字符串 "P"。' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)   ' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar)   ' 返回 9。MyPos = Instr(1, SearchString, "W")   ' 返回 0。

Answer 6

Instr找的就是你.哈哈哈.
整理一下.
  A="11-大家好"
  B="12-新年好"
  C="1-888"
我这样做
Private Sub Command1_Click()
a = Text1.Text
Text2.Text = Left(a, InStr(a, "-") - 1)
End Sub