大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim str As String = "中华人民共和国adfjpwqetqadfwetqgasdfewgt"
在三门等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供网站制作、成都网站设计 网站设计制作按需设计网站,公司网站建设,企业网站建设,品牌网站建设,营销型网站,成都外贸网站建设,三门网站建设费用合理。
Dim tstr As String = ""
Dim i As Integer
For i = 0 To str.Length - 1
tstr = str.Substring(i, 1) " " '每一个字符后面加空格。
Next
tstr = tstr.TrimEnd(" ") '移除最后一个空格
Textbox1.Text = tstr
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本,如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1),全部转换自己弄个循环搞定
大概就这样,你自己试试吧
原字符串里:00.0 R-1 SW_STOP 6-9 之间是不是有空格?
如果是的话
Dim STR1, STR2() As String
Dim arr1 As New ArrayList
STR1 = ":00.00 R-1 Sw_STOP 6-9" '你原来的字符串
STR2 = STR1.Split(" ") ‘按空格符截取
Dim i As Integer
For i = 0 To STR2.Length - 1 Step 1
If STR2(i) "" Then
arr1.Add(STR2(i))
End If
Next
最后得到的 arr1 就是分割后的字符串集合
如果原字符串没有空格,并且字符串长度固定,截取出来的部分也固定
那么就用 substring函数 一个一个的截取也就试了
如果原字符串长度也不固定,那么要根据你的截取规则来做。如果上述两个答案不能解决的话还需要更详细的问题