vb分割字符串

VB字符串从指定字符串分割~

可以参考下面的代码：
Private Sub Command1_Click()
Dim s As String
s = "123456----hdahdkahd----2013.1.1"
Dim a
a = Split(s, "----")
If IsArray(a) Then
Text1.Text = a(1)
End If
End Sub

扩展资料：
语法
Split(expression[, delimiter[, count[, compare]]])
Split函数部分语法：
expression必需的，包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
参考资料来源：百度百科-split函数

java分割字符串用split，例如
String sourceStr = "1,2,3,4,5";
String[] sourceStrArray = sourceStr.split(",");
for (int i = 0; i < sourceStrArray.length; i++) {
System.out.println(sourceStrArray[i]);
}
split分隔符总结
1.字符"|","*","+"都得加上转义字符，前面加上"\\"。
2.而如果是"\"，那么就得写成"\\\\"。
3.如果一个字符串中有多个分隔符，可以用"|"作为连字符。
比如：String str = "Java string-split#test",可以用Str.split(" |-|#")把每个字符串分开。这样就把字符串分成了3个子字符串。

这个很简单  用mid函数就行了

Private Sub Command1_Click()
Dim arr() As String
Dim a As String
Dim i As Integer
a = "abcdef"
ReDim arr(Len(a))  '重新定义数组长度为字符串长度
For i = 1 To Len(a)  '在字符串内循环
    arr(i) = Mid(a, i, 1)  '利用mid函数分割字符串并赋值到数组
    Print arr(i)  '输出分解的字符  测试用 可删掉
Next i
End Sub

的目的是要VB将字符串分成单个字符。 如果要放入一个数组中，可以这样： Private Sub Command1_Click() Dim s As String Dim ars() As String Dim i As Long, m As Long s = "abcdefg" m = Len(s) ReDim ars(m - 1) For i = 1 To m ars(i - 1)

汗...split函数是可以指定拆分次数的.....在分隔符后面指定拆分成2份就行了.....楼上的竟然搞那么复杂
Debug.Print
Split(Str,
"
",
2)

---

漾濞彝族自治县13451519530： VB中,如何将字符串分割成所需要的字符? - ？
贺义奥得： dim s as string dim sv1() as stringdim sv2() as strings=＂S11+S20+S31+DL1＂ sv1=split(s,＂+＂,-1)redim sv2(ubound(sv1)) for x= 0 to ubound(sv1)sv1(x)=left(sv1(x),2)sv2(x)=right(sv1(x),1)debug.print sv1(x) & ＂ ＂ & sv2(x)next以上程序,保存并输出了数组内容

漾濞彝族自治县13451519530： VB 分割字符串 - ？
贺义奥得： 汗...split函数是可以指定拆分次数的.....在分隔符后面指定拆分成2份就行了.....楼上的竟然搞那么复杂 Debug.Print Split(Str, ＂ ＂, 2)

漾濞彝族自治县13451519530： VB 如何截取字符串? - ？
贺义奥得： left(要截取的字符串,从左数要截取的字符个数) right(要截取的字符串,从右数要截取的字符个数) mid(要截取的字符串,从左开始截取的位置,截取的字符个数) 希望这三个函数能帮上你.

漾濞彝族自治县13451519530： VB中有没有办法将字符串分开? - ？
贺义奥得： 根据你的例子来看,每个字符串只有一个逗号. 如果不是这样,请用swx1995的方法.如果是,那么,下面的办法效率更好: dim i as integer,l as integer i=instr(s,“,”) l=len(s) s1=left(s,i-1) s2=right(s,l-i) 这里s就是原来的,s1、s2就是你要的

漾濞彝族自治县13451519530： VB将字符串分成单个 - ？
贺义奥得： 你的目的是要VB将字符串分成单个字符. 如果要放入一个数组中,可以这样: Private Sub Command1_Click()Dim s As StringDim ars() As StringDim i As Long, m As Longs = ＂abcdefg＂m = Len(s)ReDim ars(m - 1)For i = 1 To mars(i - 1) = Mid(s, i, 1)Print ars(i - 1)NextEnd Sub

漾濞彝族自治县13451519530： VB里如何实现将字符串一个个分开显示? - ？
贺义奥得： Private Sub Form_Load() Dim S As String, I As Integer S = ＂中华人民共和国＂ For I = 1 To Len(S) MsgBox Mid$(S, I, 1) Next End Sub

漾濞彝族自治县13451519530： vb如何分别截取指定字符之前和之后的内容? - ？
贺义奥得： 方法和详细的操作步骤如下: 1、第一步,删除字符串C两端的空格,见下图,转到下面的步骤. 2、第二步,完成上述步骤后,截取C的最左边的n个字符,见下图,转到下面的步骤. 3、第三步,完成上述步骤后,截取C的最右侧n个字...

漾濞彝族自治县13451519530： VB字符串从指定字符串分割 - ？
贺义奥得： 可以参考下面的代码: Private Sub Command1_Click() Dim s As String s = ＂123456----hdahdkahd----2013.1.1＂ Dim a a = Split(s, ＂----＂) If IsArray(a) Then Text1.Text = a(1) End If End Sub 扩展资料: 语法Split(expression[, delimiter[, count[...

漾濞彝族自治县13451519530： VB分离字符串？
贺义奥得： dim str1 as string,str2 as string,strs as string,ss()as string strs=＂[abcd][c2df]＂ strs=replace(strs,＂]＂,＂＂) if left(strs,1)=＂[＂ then strs=right(strs,len(strs)-1) ss=split(strs,＂[＂) if ubound(ss)&gt;0 then str1=ss(0):str2=ss(1) msgbox str1 &amp;＂,＂&amp; str2

漾濞彝族自治县13451519530： VB怎么把字符串分开 - ？
贺义奥得： s = ＂1233＂ A = Left(s, 2) B = Right(s, 2)