s="C:\1\2\3\4\1.txt"
msgbox left(s,instrrev(s,"\"))本回答被提问者和网友采纳
Set fso = CreateObject("scripting.filesystemobject")
a="C:\1\2\3\4\1.txt"
WScript.Echo fso.GetFile(a).ParentFolder
'ps:内置函数是运行最快的。
b= StrReverse(split(StrReverse(a),"\",2)(1))&"\"
msgbox b
vbs 截取字符串
dim s s="C:\\1\\2\\3\\4\\1.txt"msgbox left(s,instrrev(s,"\\"))
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
VBS提取这种字符串124-2589658-55884585(都是3位数字-7位数字-8位数字...
strIpt)Function RegExpTest(ptn, str) Dim regEx, Match, Matches Set regEx = New RegExp regEx.Pattern = ptn regEx.Global = True Set Matches = regEx.Execute(str) For Each Match in Matches RegExpTest = RegExpTest & Match.Value & vbCRLF NextEnd Function ...
VBS 如何获取当前DOS窗口中的一段字符串?
'截取ping.exe执行结果的右边20个字符串 Set WS = CreateObject("WScript.Shell")Set aExec = WS.Exec("ping.exe 168.172.1.1")Set aStdOut = aExec.StdOut Do Until aStdOut.AtEndOfStream strLine = aStdOut.ReadLine Wscript.Echo Right(strLine ,20)Loop '截取ping.exe执行结果的并过滤左...
vbs 字符串截取的一个问题
用一个循环，k是数组最大数 dim allmsg for i = 0 to k allmsg$ = allmsg$ + msgvar2(i)next i 执行完这个循环，allmsg$就是你要的这个字符串了。
vbs 会截取字符串?
for i= 1 to 2000 s=s & i & " "nextWScript.Echo s用这个代替msgbox
sql语句截取字符串
sql应该不行vb\\vbs:dim txt txt=你的字符串tmp=split(txt,",")for i= 0 to ubound(tmp)if right(tmp(i),4)=".jsp"msgbox tmp(i)next
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什么意思?
意思就是：当你用鼠标点击名为Command1的按钮时，就执行这一行下面的多行代码，直到遇到End Sub结束。那个下划线（也就是“横”）左边的是控件名（Command1），右边的是事件（Click），括号里包含的是参数（空白就表示没有参数）。
一个VBS的函数left 函数意义的问题
你说的对呀，取变量fname全长，直接就fname了，没必要这么写。。。如果去掉c:\\windows\\最后一个\\ 就有用了，就会写成nm = Left(fname,Len(fname)-1)
