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

'添加窗體Form1,按鈕Command1,添加如下代碼:

10年積累的成都網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站策劃后付款的網(wǎng)站建設(shè)流程，更有南岸免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

Private Sub Command1_Click()

MsgBox delStr("abcdefg", 3, 2) '從第3個(gè)字符開(kāi)始往后刪除2個(gè)字符

MsgBox delStr("abcdefg", 3) '從第3個(gè)字符開(kāi)始刪除后面所有字符

End Sub

'函數(shù)名稱：delStr

'功能：刪除一個(gè)字符串的指定部分

'入口參數(shù)：

' strSource 必要參數(shù)。為String。需要處理的原始字符串

' lngStart 必要參數(shù)。為L(zhǎng)ong。被刪除字符的起始位置

' lngLenth 可選參數(shù)。為Variant(Long)被刪除字符的長(zhǎng)度，如果缺省將刪除從lngStart開(kāi)始到尾端的所有字符

'返回值：delStr 類型為String，返回處理好的結(jié)果

'備注：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編寫(xiě)一個(gè)函數(shù)，刪除一個(gè)字符串中的特定字符

'定義一個(gè)find函數(shù)

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(字符串，從第幾個(gè)開(kāi)始，長(zhǎng)度) 在[字符串]中[從第幾個(gè)開(kāi)始]取出[長(zhǎng)度個(gè)字符串]

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

VB 字符串處理函數(shù)集

mid(字符串，從第幾個(gè)開(kāi)始，長(zhǎng)度) 在[字符串]中[從第幾個(gè)開(kāi)始]取出[長(zhǎng)度個(gè)字符串]

例如 mid("小欣無(wú)敵",1,3) 則返回 "小欣無(wú)"

instr(從第幾個(gè)開(kāi)始,字符串1,字符串2) 從規(guī)定的位置開(kāi)始查找，返回字符串2在字符串1中的位置

例如 instr(1,"小欣無(wú)敵","小") 則返回 1,instr(2,"小欣無(wú)敵","小")，則返回 0 。 0 表示未找到

InStrRev(字符串1,字符串2,從第幾個(gè)開(kāi)始) 從規(guī)定的位置開(kāi)始，從后住前查找，返回字符串2在字符串1中的位置，此處注意，雖是從后住前查找，但是返回的值還是從前往后算的。

例如 instrRev("小欣無(wú)敵","小",2) 則返回 2 ; instrRev("小欣無(wú)敵","欣",1) 則返回 0 ,因?yàn)樗鼜?小欣無(wú)敵"的第1個(gè)字開(kāi)始往前查找，所以找不到 。0 表示未找到

left(字符串,長(zhǎng)度) 從[字符串]的左邊開(kāi)始返回[長(zhǎng)度]個(gè)字符

例如 Left("小欣無(wú)敵,3) 則返回 "小欣無(wú)"

right(字符串,長(zhǎng)度) 從[字符串]的右邊開(kāi)始返回[長(zhǎng)度]個(gè)字符

例如 Right("小欣無(wú)敵",3) 則返回 "欣無(wú)敵"

ucase(字符串) 返回[字符串]的大寫(xiě)形式，只對(duì)英文字符有效

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

lcase(字符串) 返回[字符串]的小寫(xiě)形式，只對(duì)英文字符有效

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

asc(字符) 返回[字符]的ascii編碼，若有多個(gè)字符，則只返回首字符的ascii編碼,和Chr()函數(shù)是一個(gè)可逆的過(guò)程

例如 asc("小") 則返回 -12127 ; asc("小欣無(wú)敵") 也返回 -12127

chr(ASCii編碼) 返回[Ascii]編碼所代表的字符，和Chr()函數(shù)是一個(gè)可逆的過(guò)程

例如 chr(-12127) 則返回 "小" ；chr(asc("小")) 則返回"小"(這里是為了說(shuō)明asc和chr的可逆性，例用此特性可以加密文本)

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

例如 trim(" 小 欣 無(wú)敵 ") 則返回 "小 欣 無(wú)敵" ，中間的空格不受任何影響

string(個(gè)數(shù),字符) 返回[個(gè)數(shù)]個(gè)[字符]

例如 string(3,"小") 則返回 "小小小" , 而 string(3,"小欣無(wú)敵") 也返回 "小"，只有首字符才有效

space(個(gè)數(shù)) 返回[個(gè)數(shù)]個(gè)空格

例如 space(5) 則返回 " "

strconv(字符串,轉(zhuǎn)換的類型) 將字符串轉(zhuǎn)成指定的類型。常用的類型只有兩個(gè),vbwide 半角轉(zhuǎn)成全角,vbNarrow 全角轉(zhuǎn)成半角

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

’備注 vbwide = 4 ,vbnarrow = 8

len(字符串) 返回[字符串]的長(zhǎng)度

例如 len("小欣無(wú)敵") 則返回 4

VB.NET 如何實(shí)現(xiàn)刪去指定字符及以后的內(nèi)容

t = "1234a789405450"

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

If tt 1 Then

t = Mid(t, 1, tt)

MsgBox t

End If

vb.net比較簡(jiǎn)單的方法刪除指定的字符串

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

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