x1,x2,x3,x4是变量名,它们代表的东西必须从上下文判断!
创新互联建站是一家专业提供石门企业网站建设,专注与网站制作、网站设计、html5、小程序制作等业务。10年已为石门众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
str(x1)表示将这些变量的值转换成字符串。
是字符串连接符号,表示将这些字符串连起来。
TextBox1.Text表示TextBox1中原有的字符串。
总体意思:每执行一次这个语句,会在TextBox1的尾巴上增加一些字符,这些字符由x1,x2,x3,x4变量中的值决定!
str(22)把数字22转化为字符串后,系统自动在22前增加一个空格,即符号位(因为正号只占位),如果是负数则用-号占用符号位,所以str(22)的结果是“ 22”,长度为3。
后面的str(3)=" 3",str(2)=" 2",它们的字符串的长度都是2(包括了一个符号位空格)。
所以:Len(Str(22) + Str(3) + Str(2))=len(" 22"+" 3"+" 2")=len(" 22 3 2")=7
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim asciiBytes As Byte() = Encoding.Convert(Encoding.Unicode, Encoding.ASCII, Encoding.Unicode.GetBytes("AAAAAAAAAA"))
End Sub
End Class
不知道是不是你想要的。
使用mid函数 ,根据开始位置和字符数量提取。前提是你输入的字符串位数都是一样的。
str1=mid(str,1,3)'手机号
str2=mid(str,4,11)'1368555444
str3=mid(str,16,3)'80R
也可以先用replace函数先把“手机号”3个字去除,而后再用split函数根据中间的空格分割为2个字符串。
str=replace(str,"手机号","")
dim str1() as string
str1=str.split(str," ")
str1(0) '1368555444
str1(1) '80R
mid函数的语法:
Mid(string, start[, length])
mid函数的参数:
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null;
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,VB.NET Mid函数返回零长度字符串 ("");
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。