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

xiaoniaoyiren

文件名：UserInfo_1304172403000451.csv

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

lgh75560

用VBS写了个有条件的

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

1. 
   
2. Set FSO = CreateObject("Scripting.FileSystemObject")
   
3. '目录1
   
4. Set oFolder = FSO.GetFolder("D:\Google Dowload\S1")   
   
5. '获取目录下，全部文件
   
6. Set oFiles=oFolder.Files
   
7. 
   
8. '计数器，因为同目录下，不能出现重名文件
   
9. Dim counter
   
10. counter=0
    
11. 
    
12. '下面循环遍历文件，然后复制新文件
    
13. For Each oFile In oFiles
    
14. 
    
15.         '拷贝文件到新目录下,目录2下
    
16.         FSO.CopyFile oFile.Path,"D:\Google Dowload\S2\"&"UserInfo_"&counter&".csv"
    
17. 
    
18.         counter=counter+1
    
19. Next
    
20. 
    
21. Set FSO=nothing
    
22. Set oFolder=nothing
    
23. Set oFiles=nothing
    

复制代码

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

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

ermine

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

就是批量修改文件名


把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)

xiaoniaoyiren

470322598

赵佳乐SMILE

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

xiaoniaoyiren

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

就是批量修改文件名


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

lgh75560

Dim st,parts
st="UserInfo_1304172403000451.csv"

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


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