VB中，如何将字符串指定位置的字符去掉？

'添加窗体Form1,按钮Command1,添加如下代码:

10年积累的成都网站建设、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站策划后付款的网站建设流程，更有南岸免费网站建设让你可以放心的选择与我们合作。

Private Sub Command1_Click()

MsgBox delStr("abcdefg", 3, 2) '从第3个字符开始往后删除2个字符

MsgBox delStr("abcdefg", 3) '从第3个字符开始删除后面所有字符

End Sub

'函数名称：delStr

'功能：删除一个字符串的指定部分

'入口参数：

' strSource 必要参数。为String。需要处理的原始字符串

' lngStart 必要参数。为Long。被删除字符的起始位置

' lngLenth 可选参数。为Variant(Long)被删除字符的长度，如果缺省将删除从lngStart开始到尾端的所有字符

'返回值：delStr 类型为String，返回处理好的结果

'备注：sysdzw 于 11:05 2007-11-15 提供

Private Function delStr(strSource As String, lngStart As Long, Optional lngLength As Variant) As String

Dim strL, strR As String

If IsMissing(lngLength) Then lngLength = Len(strSource) - lngStart + 1 '如果缺省则删除往后所有

strL = Mid(strSource, 1, lngStart - 1)

strR = Mid(strSource, lngStart + lngLength)

delStr = strL strR

End Function

vb编写一个函数，删除一个字符串中的特定字符

'定义一个find函数

Private Function find(s1 As String, s2 As String) As String

Dim i As Integer

For i = 1 To Len(s1)

If i = InStr(1, s1, s2, vbTextCompare) Then

find = Left(s1, i - 1) Right(s1, Len(s1) - Len(s2) - i + 1)

Exit Function

End If

Next i

find = s1

End Function

'将Text1.Text中的Text2.Text字符删除

Private Sub Command1_Click()

Dim s As String

s = find(Text1.Text, Text2.Text)

Text1.Text = s

End Sub

VB 从字符串中去掉某段字符

mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]

例如 mid("iam123",4,3) 则返回 "123"

VB 字符串处理函数集

mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]

例如 mid("小欣无敌",1,3) 则返回 "小欣无"

instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找，返回字符串2在字符串1中的位置

例如 instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到

InStrRev(字符串1,字符串2,从第几个开始) 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。

例如 instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到 。0 表示未找到

left(字符串,长度) 从[字符串]的左边开始返回[长度]个字符

例如 Left("小欣无敌,3) 则返回 "小欣无"

right(字符串,长度) 从[字符串]的右边开始返回[长度]个字符

例如 Right("小欣无敌",3) 则返回 "欣无敌"

ucase(字符串) 返回[字符串]的大写形式，只对英文字符有效

例如 ucase("xiaoXINwuDi") 则返回 "XIAOXINWUDI"

lcase(字符串) 返回[字符串]的小写形式，只对英文字符有效

例如 lcase("xiaoXINwuDi") 则返回 "xiaoxinwudi"

asc(字符) 返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程

例如 asc("小") 则返回 -12127 ; asc("小欣无敌") 也返回 -12127

chr(ASCii编码) 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程

例如 chr(-12127) 则返回 "小" ；chr(asc("小")) 则返回"小"(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本)

trim(字符串) 返回去掉了前、后之后的[字符串]

例如 trim(" 小 欣 无敌 ") 则返回 "小 欣 无敌" ，中间的空格不受任何影响

string(个数,字符) 返回[个数]个[字符]

例如 string(3,"小") 则返回 "小小小" , 而 string(3,"小欣无敌") 也返回 "小"，只有首字符才有效

space(个数) 返回[个数]个空格

例如 space(5) 则返回 " "

strconv(字符串,转换的类型) 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角

例如 strconv("xiao",vbwide) 则返回 "XIAO",而strconv("XIAO",vbnarrow) 则返回 "XIAO"

’备注 vbwide = 4 ,vbnarrow = 8

len(字符串) 返回[字符串]的长度

例如 len("小欣无敌") 则返回 4

VB.NET 如何实现删去指定字符及以后的内容

t = "1234a789405450"

tt = InStr(t, "a") - 1

If tt 1 Then

t = Mid(t, 1, tt)

MsgBox t

End If

vb.net比较简单的方法删除指定的字符串

Dim regex=New System.Text.RegularExpressions.Regex("\(([^\)]*)\)")

Dim s= regex.Replace("(111)k(222)","$1")

网站名称：vb.net去掉指定字符,vb删除字符
文章路径：http://kswjz.com/article/hsoiie.html