重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
在白碱滩等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站建设、网站制作 网站设计制作按需网站设计,公司网站建设,企业网站建设,品牌网站制作,营销型网站,成都外贸网站制作,白碱滩网站建设费用合理。
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")
Dim A As String, B As String
A = "123456"
B = "123456"
If A = B Then GoTo xiangdeng
MsgBox "不相等"
GoTo buxiangdeng
xiangdeng:
MsgBox "相等"
buxiangdeng:
可以参考下面的代码:
str1="abcde"
str2=inputbox("请输入一个字符串!")
if str1=str2 then
msgbox "它们是一样的呀!"
else
msgbox "它们是不一样的!"
end if
扩展资料:
VB函数
And 运算符: 执行两个表达式的逻辑连接。
Array 函数: 返回含一数组的变体 。
Asc 函数: 返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=):给变量或属性赋值。
Description 属性: 返回或者设置说明某个错误的字符串。
Dictionary 对象: 存储数据键、项目对的对象。
Dim 语句: 声明变量并分配存储空间。
除法运算符 (/): 两数相除并以浮点数格式返回商。
参考资料来源:百度百科-Visual Basic
string.LastIndexOf(搜索的字符串, 位置)
位置 = 已经选中的字符串在整个文本中的Index序号
vb.net规定如果要比较字符串,不能用“=”,strcomp(str1,str2,n)或者string.compare(str1,str2)
例如:
Dim a As String = "c"
Dim b As String = "c"
Dim n As Integer = String.Compare(a, b)
If n = 0 Then
MsgBox("=")
Else
MsgBox("")
End If
用 Like
% = 任意数量的字符
?= 单个字符
类似简易的正规则比对。
具体可参照MSDN
例:(以下代码可以直接放到程序里执行)
dim str as string
str = "abc123"
if str like "a%" then msgbox "yes"
if str like "%a%2%" then msgbox "yes"
if str like "%3" then msgbox "yes"
if str like "%3?" = false then msgbox "no"