直接放一个数组里面不行么
dim z,i,arr()z="ASDFG"
redim arr(len(z))
for i=1 to len(z)
arr(i)=mid(z,i,1)
next
for i=1 to len(z)
msgbox arr(i)
next
vbs中分隔字符串的函数
首先，我们找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号作为Split函数的"分割符"来分割整个字符串，最后达到取username和password的目的。代码如下：strURL = "ftp:\/\/username:password@server"aryReturn = Split(strURL,":")这样我们就把字符串...
请问我在vbs里怎么把汉字和英文或数字分开呢?谢谢
先用 字符数组=split（字符串），再显示Join（字符数组，“ ”）即可。
VBS 如何拆分字符串
直接放一个数组里面不行么 dim z,i,arr()z="ASDFG"redim arr(len(z))for i=1 to len(z)arr(i)=mid(z,i,1)next for i=1 to len(z)msgbox arr(i)next
ASP VBS 字符串分割成数组的问题
可以用汉字分割的，如果不行你先替换掉。replace(str,"里","|")str="0里1里2里3里4里5"strArr=split(str,"里")for i=0 to ubound(strArr)response.Write(strArr(i)&"")next
VBS-InputBox输入的字符串拆分输出
E1="123"A3="124"b4="125"ib=inputbox("Please input","inputbox")if ib="E1A3B4" then msgbox E1&A3&b4 else msgbox "Input wrong"end if
有段vbs的代码,请教下是做什么的。
Function restorecode(str)s=split(str,",") \/\/按逗号分割字符串 for i=0 to ubound(s)if isnumeric(s(i))=true then \/\/判断是否为数字 b=chrw(s(i)) \/\/转为字符，比如65转为a else:b=s(i) \/\/不是数字则不进行转换 end if restorecode = restorecode & b \/\/将转换后的字符串...
vbs 截取字符串
dim s s="C:\\1\\2\\3\\4\\1.txt"msgbox left(s,instrrev(s,"\\"))
vbs,输出字符串设定一种格式的问题
看看以下代码行不行；strRet="湖北联通(10年3月创建)|陈保松|职工|001^湖北联通(10年3月创建)|陈保松|负责人|002^"a=Split(strret,"^")For i=0 To UBound(a)-1 b=Split(a(i),"|")m_tsmsmsg=Left(b(0),InStr(b(0),"(")-1)&"|姓名："&b(1)&"|职务："&b(2)&"|编号"...
vbs 字符串截取的一个问题
用一个循环，k是数组最大数 dim allmsg for i = 0 to k allmsg$ = allmsg$ + msgvar2(i)next i 执行完这个循环，allmsg$就是你要的这个字符串了。
vbs中有没有一个可以返回字符串的第几个字的函数?
在vbscript中，常用截取字符串的函数有left（str,length），right（str,length）和mid（str,start,length）例如dim str="abcdefg"left(str,3)的结果是c right（str,3)的结果是e mid(str,3,1)的结果是c mid(str,4,2)的结果是e
