以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问老大如何截取某个字符的代码怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10508)
--  作者：xiaoqiwei
--  发布时间：2011/6/9 16:00:00
--  请问老大如何截取某个字符的代码怎么写？

请问老大如何截取某个字符的代码怎么写？例如：

dim a1 As String = "abcdefghijk"

dim b1 As String

dim b2 As String

dim b3 As String

我要截取前4个

b1= abcd \'截取前4个数

b2=efgh  \'截取由第五个数开始截取4个

b3=hijk   \'截取后面4个数

 

请问老大代码应该怎么写啊？

[此贴子已经被作者于2011-6-9 16:00:45编辑过]
--  作者：hhbb
--  发布时间：2011/6/9 16:09:00
--  
Dim a1,b1,b2,b3 As String 
a1 = "abcdefghijk"
b1 = a1.Substring(0,4)
b2 = a1.Substring(4,4)
b3 = right(a1,4)
Output.Show(b1)
Output.Show(b2)
Output.Show(b3)
--  作者：blackzhu
--  发布时间：2011/6/9 16:10:00
--  

SubString

返回从指定位置开始指定长度的子字符串。

语法：

SubString(StartIndex)
SubString(StartIndex, Length)

参数：

StartIndex: 子字符串的开始位置。
Length: 可选参数，子字符串的长度。

如果忽略长度，则返回自指定位置开始的所有字符串。

例如：

Dim s1 As String ="中华人民共和国"
Dim s2 As String
Dim s3 As String
s2 = s1.SubString(2)
s3 = s1.SubString(2,3)
Output.Show("s2 = " & s2)
Output.Show("s3 = " & s3)

输出结果为：

s2 = 人民共和国
s3 = 人民共
--  作者：smileboy
--  发布时间：2011/6/9 16:14:00
--  
Dim a1,b1,b2,b3 As String
a1 = "abcdefghijk"
b1=left(a1,4)
b2 = a1.Substring(4,4)
b3 = right(a1,4)
Output.Show(b1)
Output.Show(b2)
Output.Show(b3)
--  作者：xiaoqiwei
--  发布时间：2011/6/9 16:25:00
--  

呵呵，非常感谢大家！
--  作者：smileboy
--  发布时间：2011/6/9 16:49:00
--  

其实严谨一下应该先判断一下，否则容易出错。

Dim a1,b1,b2,b3 As String
a1 = "abcdefghijk"
If a1.Length<8 Then
    MessageBox.Show("长度不够")
Else
    b1=left(a1,4)
    b2 = a1.Substring(4,4)
    b3 = right(a1,4)
    Output.Show(b1)
    Output.Show(b2)
    Output.Show(b3)
End If