[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
取文件名 放入变量 将文件名变成字符串进行删除, 将删除后的字符串重命名文件
  1. Private Function DelStrInStr(oldstr As String, delstr As String) As String '删除指定字符串函数
  2. DelStrInStr = oldstr
  3. Dim a, oldlen, dellen As Integer
  4. a = InStr(oldstr, delstr)
  5. If a <> 0 Then
  6.            oldlen = Len(oldstr)
  7.            dellen = Len(delstr)
  8.            DelStrInStr = Left(oldstr, a - 1) + Right(oldstr, oldlen - a + 1 - dellen)
  9. End If
  10. End Function
复制代码

TOP

又不是没搜索,不知道该搜索什么关键字,搜索了“文件名修改”,“关键字删除”等自己想到的标题,找不到想要的答案才发帖的!

TOP

返回列表