重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
string str1 = "a=1.2,3.5,7.88";
创新互联是一家专注于成都做网站、网站制作与策划设计,孙吴网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:孙吴等地区。孙吴做网站价格咨询:028-86922220
var arr = (from s in str1.Split('=')[1].Split(',') where s.Trim() != "" select Convert.ToDouble(s)).ToArray();
Split(',')这个地方逗号是全角还是半角的按照你文本内容里面的来
a="@1991@1205@844@3276@1104@747@1069@0.9@4@3@104810571073
"
a=Replace(a,"@",",")
a=Replace(a,"",",")
dim b()
b=split(a,",")
用法 RndString(xx) xx为随机数字长度
比如12位长度的随机字符串 则为 RndString(12)
字符串包含数字和大小写字母,函数如下:
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII码是:97-122
'A-Z 的ASCII码是:65-90
'0-9 的ASCII码是:48-57
For i = 1 To l
R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字,共有26个
If R 10 Then '如果小于10,则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48
S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符
ElseIf R 36 Then '如果小于36,则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55
S = Chr(R + 55)
Else '如果大于36,则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
s = "abc2sss57zzz03iop" '要判断的字符串
For i = 0 To 9
If Instr(s, i) Then Exit For
Next
If i 9 Then
MsgBox "字符串中不含数字"
Else
MsgBox "字符串中含有数字"
End If
如果用常规编程的方法:
直接用split(str1,“,”)的形式把str1字符串分成字符串数组,然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim my_str As String = "%123#@!Ab156(?*hLE\$"
Dim a() As String = Regex.Split(Regex.Replace(my_str, "^[\W]+|[\W]+$", ""), "\W+")
End Sub
End Class