vb.net字符串末尾 VB中字符串

vb.net里，怎样吧最后一个字符去掉

str=Microsoft.VisualBasic.Left(str,Len(str)-1)

创新互联专业为企业提供瑞金网站建设、瑞金做网站、瑞金网站设计、瑞金网站制作等企业网站建设、网页设计与制作、瑞金企业网站模板建站服务，10年瑞金做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

实际上就是VB6的Left函数，但由于命名空间的关系，要写全称。

string.SubString(string,string.Length-1)

string.Remove(string.Length - 1)

VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Mid Function Demo" 建立一个字符串。

FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。

LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。

MidMidWords = Mid(MyString, 5) ' 返回 "Funcion

具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。

mid函数的语法：

Mid(string, start[, length])

mid函数的参数：

string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；

start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；

length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim s As String = TextBox1.Text

Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置（但位置仍从左算起）

Dim s1 As String'用于保存最后一行字符串

If p = 0 Then'若未找到回车符，则直接将整个字符串赋给S1

s1 = s

Else

s1 = Mid(s, p + 2)'若找到回车符，则截取回车符右边的部分

End If

MsgBox(s1)'显示你要找的最后一行字符串

End Sub

'这个当然可以，用mid 取字符串的位置长度

Dim str As String = "16461了工有6149夺中46146好31"

Label1.Text = Mid(str, str.Length - 3, 3) '取字符串最后3位数

Label2.Text = Mid(str, 1, 3) '取字符串前面3位数

文章标题：vb.net字符串末尾 VB中字符串
文章URL：http://cdiso.cn/article/doodoio.html