qtp 如何删除文件名后面的字符

xiaoniaoyiren · 发表于 2013-12-19 14:32:38

文件名：UserInfo_1304172403000451.csv

删除文件名“-”后面的所有字符

lgh75560 · 发表于 2013-12-19 17:10:47

Dim st,parts
st="UserInfo_1304172403000451.csv"

parts=split(st,"_")
print parts(0) '输出UserInfo

是不是你要的？
还是要修改文件的名称？

xiaoniaoyiren · 发表于 2013-12-20 08:50:01

本帖最后由 xiaoniaoyiren 于 2013-12-20 09:32 编辑

不好意思呀！！我描述的不够详细！我在详细说下

就是批量修改文件名

把C:\Users\liujie\Desktop\新建文件夹 (2)\UserInfo_***********.csv 文件名修改成 UserInfo_.csv

赵佳乐SMILE · 发表于 2013-12-20 12:30:54

楼主你QQ多少对于csv 有些问题想请教你

xiaoniaoyiren · 发表于 2013-12-20 14:22:11

470322598

ermine · 发表于 2013-12-20 15:57:35

不好意思呀！！我描述的不够详细！我在详细说下

就是批量修改文件名

把C:\Users\liujie\Desktop\新 ...
xiaoniaoyiren 发表于 2013-12-20 08:50

如果文件固定是.csv，你再拼一下就好了，借用上面的代码

Dim st,parts
st="UserInfo_1304172403000451.csv"

parts=split(st,"_")
print parts(0) '输出UserInfo
'''''''''''''''''''''''''''''''
print parts(0) & "_" & Right(parts(1), 4)

lgh75560 · 发表于 2013-12-20 17:01:22

用VBS写了个有条件的

条件：
目录1下面都是csv文件，否则要修改脚本加判断

Set FSO = CreateObject("Scripting.FileSystemObject")
'目录1
Set oFolder = FSO.GetFolder("D:\Google Dowload\S1")
'获取目录下，全部文件
Set oFiles=oFolder.Files
'计数器，因为同目录下，不能出现重名文件
Dim counter
counter=0
'下面循环遍历文件，然后复制新文件
For Each oFile In oFiles
'拷贝文件到新目录下,目录2下
FSO.CopyFile oFile.Path,"D:\Google Dowload\S2\"&"UserInfo_"&counter&".csv"
counter=counter+1
Next
Set FSO=nothing
Set oFolder=nothing
Set oFiles=nothing

复制代码

其实bat更加快，不过只适合单文件（下面是废代码，因为同目录下，重名文件会报错的。
只能修改1个文件成功，如果目录下有多文件的话）

bat批处理代码：
ren UserInfo_*.csv UserInfo_.csv

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] qtp 如何删除文件名后面的字符

相关帖子

站长推荐 /1