從左到右一個一個字符判斷,如果是數字忽略,如果不是數字,把字符放到一個新字符串中,最后得到的新字符串就是去掉數字后剩余的字符串。
創新互聯公司-專業網站定制、快速模板網站建設、高性價比疏勒網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式疏勒網站制作公司更省心,省錢,快速模板網站建設找我們,業務覆蓋疏勒地區。費用合理售后完善,十余年實體公司更值得信賴。
string.SubString(string,string.Length-1)
or
string.Remove(string.Length - 1)
最好的辦法:
Dim aa As String = "123456789"
MsgBox(aa.Substring(7))
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
Dim?regex=New?System.Text.RegularExpressions.Regex("\(([^\)]*)\)")
Dim?s=?regex.Replace("(111)k(222)","$1")
'定義一個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.net去掉字符串 字符串中去除特定字符C語言
文章分享:http://vcdvsql.cn/article38/hiocsp.html
成都網站建設公司_創新互聯,為您提供品牌網站建設、關鍵詞優化、企業建站、建站公司、網站排名、網頁設計公司
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯