51Testing软件测试论坛

标题: qtp 如何删除文件名后面的字符 [打印本页]
作者: xiaoniaoyiren    时间: 2013-12-19 14:32
标题: qtp 如何删除文件名后面的字符
文件名：UserInfo_1304172403000451.csv

删除文件名“-”后面的所有字符
作者: lgh75560    时间: 2013-12-19 17:10
Dim st,parts
st="UserInfo_1304172403000451.csv"

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


是不是你要的？
还是要修改文件的名称？
作者: xiaoniaoyiren    时间: 2013-12-20 08:50
本帖最后由 xiaoniaoyiren 于 2013-12-20 09:32 编辑

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

就是批量修改文件名


把C:\Users\liujie\Desktop\新建文件夹 (2)\UserInfo_***********.csv 文件名修改成  UserInfo_.csv
作者: 赵佳乐SMILE    时间: 2013-12-20 12:30
楼主 你QQ多少 对于csv 有些问题想请教你
作者: xiaoniaoyiren    时间: 2013-12-20 14:22
470322598
作者: ermine    时间: 2013-12-20 15:57
不好意思呀！！我描述的不够详细！我在详细说下

就是批量修改文件名


把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
用VBS写了个有条件的

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

  2. Set FSO = CreateObject("Scripting.FileSystemObject")
  3. '目录1
  4. Set oFolder = FSO.GetFolder("D:\Google Dowload\S1")   
  5. '获取目录下，全部文件
  6. Set oFiles=oFolder.Files

  8. '计数器，因为同目录下，不能出现重名文件
  9. Dim counter
  10. counter=0

  12. '下面循环遍历文件，然后复制新文件
  13. For Each oFile In oFiles

  15.         '拷贝文件到新目录下,目录2下
  16.         FSO.CopyFile oFile.Path,"D:\Google Dowload\S2\"&"UserInfo_"&counter&".csv"

  18.         counter=counter+1
  19. Next

  21. Set FSO=nothing
  22. Set oFolder=nothing
  23. Set oFiles=nothing
复制代码
其实bat更加快，不过只适合单文件（下面是废代码，因为同目录下，重名文件会报错的。
只能修改1个文件成功，如果目录下有多文件的话）

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



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2