Split 怎样截取字符串_百度知道
Split 怎样截取字符串
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
匿名用户知道合伙人
Private Sub Command1_Click()
Dim s As String
s = &8@@S100/mt,10@@Z400,17@@M205,7@@M440,33@@A1,35@@B6,13@@H02,27@@H01&
a = Split(s, &,&)
Dim i As Integer
Dim Id, NoCodeId
ReDim Id(LBound(a) To UBound(a)) As Integer
ReDim NoCodeId(LBound(a) To UBound(a)) As String
For i = LBound(a) To UBound(a)
If InStr(a(i), &@@&) & 0 Then
Id(i) = Val(Left(a(i), InStr(a(i), &@@&)))
NoCodeId(i) = Mid(a(i), InStr(a(i), &@@&) + 2)
For i = LBound(a) To UBound(a)
Print Id(i); NoCodeId(i)'这里保存的就是全部的ID和nocode，你想要怎么操作都可以啊，百度HI我把你的问题详细说说
Next iEnd Sub另外,站长团上有产品团购,便宜有保证
xkvkfxp64知道合伙人
采纳数：272
获赞数：4259
这个是生成数组用的再按下标取得即可了
我要用&url&分开，能具体点吗？
wodepan1014知道合伙人
wodepan1014
采纳数：61
获赞数：1518
擅长：暂未定制
根据给定正则表达式的匹配拆分此字符串
lchy0987知道合伙人
采纳数：674
获赞数：6948
Dim arr(1000)a = Split(strURL,&|&)
'这里的 | 换为你的分隔符for i=0 to ubound(sPic)
'获取到每一个元素next【有疑问可以HI我，或追问，但请不要关闭问题，谢谢！】
我要以&url&分开，怎么办
我晕你，C#分类干嘛要发在VB里！string tmp = &sadf&url&asdf&url&asdfsdfsdf&url&&;
foreach(string subTmp in tmp.Split(new string[] {&&url&&},StringSplitOptions.RemoveEmptyEntries))
Console.WriteLine(subTmp);
其他1条回答
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb中split分割的字符串怎么保存到多维数组中 例如 dim a(1 To 10, 1 To_百度知道
vb中split分割的字符串怎么保存到多维数组中 例如 dim a(1 To 10, 1 To
vb中split分割的字符串怎么保存到多维数组中例如dima(1To10,1To10,1To3)split&1/2/3&,&/&分割的字符串怎么分别保存到a(1,1,1)a(1,1,2)a(1,1,3)...
vb中split分割的字符串怎么保存到多维数组中例如dim a(1 To 10, 1 To 10 , 1 To 3)split &1/2/3&, &/&分割的字符串怎么分别保存到a(1,1,1)a(1,1,2)a(1,1,3)
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
duzhijun1957知道合伙人
duzhijun1957
采纳数：1026
获赞数：1037
Private Sub Command1_Click()& Dim a(1 To 10, 1 To 10, 1 To 3), b() As String& b = Split(&1/2/3&, &/&)& For i = 0 To 2& & a(1, 1, i + 1) = b(i)& & Print &a(1,1,& & i + 1 & &)=&; a(1, 1, i + 1)& & Print& Next i& PrintEnd Sub
这种方法我也知道，本来是想问有没有直接赋值的方法，而不用间接赋值
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb split函数_百度知道
vb split函数
vb的split函数可以将一个字符串逐个剪开吗？例如abcd变成{a,b,c,d}...
vb的split函数可以将一个字符串逐个剪开吗？例如 abcd 变成{a,b,c,d}
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
chinaboyzyq知道合伙人
chinaboyzyq
采纳数：5917
获赞数：7228
不可以。----------------------------------------------做法应该如下：Private Sub Command1_Click()Dim iStr As StringDim iAsc() As ByteDim i As IntegeriStr = &abcd&iAsc = StrConv(iStr, vbFromUnicode)For i = 0 To UBound(iAsc)
Debug.Print Chr(iAsc(i))NextEnd Sub
天堂狐知道合伙人
采纳数：75
获赞数：261
首先来看一下Split函数的用法dim Arrays() as stringArrays = Split(&a,b,c,d&,&,&)===========================之后，可以通过Arrays(0)取得“a”值。通过Arrays(1)取得“b”，依次类推。
可能能没有表述清楚其实我想问如果string1= “abcd”可否通过string()=split(string1,某限定符)使string()={a,b,c,d}
没明白，你最后想实现的是什么。如果是分离元素。可以做到啊。
正版稻草人知道合伙人
正版稻草人
获赞数：28
擅长：暂未定制
不是,是按指定字符分成几个串的,
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。谁能帮我解答一下这个VB的SPLIT指令问题，提示A1(i, j) = A2(j)类型不符，，，，_百度知道
谁能帮我解答一下这个VB的SPLIT指令问题，提示A1(i, j) = A2(j)类型不符，，，，
PrivateSubText1_LostFocus()DimA1()AsDoubleDimA2()AsStringDimiAsInteger,jAsIntegerDimAHAsInteger,ALAsIntegerDims()AsStrings()=Split(Text1.Text,vbCrLf)AH=UBound(s)A2=Split(...
Private Sub Text1_LostFocus()Dim A1() As DoubleDim A2() As StringDim i As Integer, j As IntegerDim AH As Integer, AL As IntegerDim s() As Strings() = Split(Text1.Text, vbCrLf)AH = UBound(s)A2 = Split(s(0), & &)AL = UBound(A2)ReDim Preserve A1(AH, AL)For i = 0 To AHA2 = Split(s(i), & &)For j = 0 To ALA1(i, j) = A2(j)Next jNext iText2.Text = A1(AH, AL)End Sub
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
syx54知道合伙人
采纳数：3531
获赞数：4670
Dim A1() As Double
'是双精度类型Dim A2() As String
'是字符串类型
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。关于 VB split过程 的疑惑，请高手指点_百度知道
关于 VB split过程 的疑惑，请高手指点
DimiAsLong'Dimst(0To25000)AsString’为什么去掉注释反而错了（现在状态为正确，a已定义）st=Split(Text1.Text,&&,Val(Text4.Text))Fori=1ToVal(Text4.Text)a(i)=Val(st(i-1))Nexti...
Dim i As Long'Dim st(0 To 25000) As String
’ 为什么去掉注释反而错了（现在状态为正确，a已定义）st = Split(Text1.Text, & &, Val(Text4.Text))For i = 1 To Val(Text4.Text)
a(i) = Val(st(i - 1))Next i
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
知道合伙人
采纳数：30448
获赞数：41926
擅长：暂未定制
你'Dim st(0 To 25000) As String
这行定义了25000个的数值但st = Split(Text1.Text, & &, Val(Text4.Text))时，你怎么知道就正好是25000个呢？于是就出错了。但你不定义，直接按有多少行创建多少个数组，就不会错了啊。这个数值变长变少时，都要重新定义的啊，如果你前面定义25000个了下面重新定义时，你要按分割的数量，ReDim重定义下数组，也是不会出错的。但还不如不用定义，直接赋值来得快呢。
yfcp知道合伙人
IT类认证行家
知道合伙人
采纳数：1660
获赞数：3190
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
Dim st(0 To 25000) As String &相当于定义了一个字符串数组，split相当于又给他赋值了。这样会提示不能给数组赋值的。写法：Private&Sub&Command1_Click()Dim&i&As&LongDim&st()&As&String&&&&&&&&&&'&=========st&=&Split(Text1.Text,&&&&,&Val(Text4.Text))For&i&=&1&To&Val(Text4.Text)&&&&ReDim&st(i)&'========重定义数组&&&&a(i)&=&Val(st(i&-&1))&&&&MsgBox&a(i)Next&iEnd&Sub
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。