无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 9501|回复: 26

求个批量改名的bat

  [复制链接]
发表于 2018-4-20 16:10:53 | 显示全部楼层 |阅读模式
本帖最后由 qh6420933 于 2018-4-23 14:33 编辑

求个批量改名的bat
改当前文件夹下文件名 文件名18位字母+数字 随机的 并记录源文件和改后的文件名到log.txt中 中间用,隔开
自己弄了一下午也没弄好 求一个

谢谢大家 自己用较笨的方法弄完了 bat+excel
发表于 2018-4-25 11:47:26 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-26 10:42 编辑

这个是 cmd 版本 的 ,把 要处理的 目录 拖放给 rnd.cmd 就是 实现变更,并生成一个 记录文件。把记录文件 拖放给  un_rnd.cmd 就会还原变更。
支持子目录

rnd2.cmd
  1. @echo off
  2. setlocal ENABLEDELAYEDEXPANSION
  3. COLOR 0A

  4. if "%~1"=="" goto :eof
  5. set Change="%~dp0%date:/=.%_%time::=.%.txt"
  6. for /f "delims=" %%x  in ('dir /b /s /a-d "%~1"') do (
  7.   :rnd2
  8.     call :rnd1
  9.     if exist "%%~dpx""!l!" goto rnd2
  10.   :rnd2_end
  11. echo "%%x" -----^> "!l!"
  12. echo "%%~dpx"^|"%%~nxx"^|"!l!" >>!Change!
  13. ren "%%x" "!l!"
  14. )
  15. pause
  16. goto :eof

  17. :rnd1
  18. set "str=abcdefghijklmnopqrstuvwxyz0123456789"
  19. set "l="
  20. for /l %%c in (1,1,16) do (
  21.   set /a "r=!random!%%36"
  22.   for /l %%e in (0,1,35) do (if %%e equ !r!  set "l=!l!!str:~%%e,1!" )
  23. )
复制代码




[/code] rnd-cmd-1.2.zip (848 Bytes, 下载次数: 12)
回复

使用道具 举报

发表于 2018-4-21 06:16:45 | 显示全部楼层
楼主看看这个行不。

RenGod批量更名终结者V2.6.3.16中文绿色版.7z

733.46 KB, 下载次数: 42, 下载积分: 无忧币 -2

点评

On Error Resume Next Dim objFSO, objFolder, objFile, fLog, strSuffix, mArray(), oldName, newName, I, n Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder =  详情 回复 发表于 2018-4-21 11:51
好像不行 不过还是谢谢了  详情 回复 发表于 2018-4-21 09:18
回复

使用道具 举报

 楼主| 发表于 2018-4-21 09:18:06 | 显示全部楼层
nmscl 发表于 2018-4-21 06:16
楼主看看这个行不。

好像不行 不过还是谢谢了
回复

使用道具 举报

发表于 2018-4-21 09:29:32 来自手机 | 显示全部楼层
本帖最后由 nttwqz 于 2018-4-21 09:38 编辑

这么多年一直记得并使用的批量更名软件

http://www.ffhome.com/works/1406.html
回复

使用道具 举报

发表于 2018-4-21 09:30:57 来自手机 | 显示全部楼层
想当年还是从电脑爱好者上面知道的
回复

使用道具 举报

发表于 2018-4-21 10:03:03 | 显示全部楼层
我有一个类似的VBS脚本要不要?
回复

使用道具 举报

发表于 2018-4-21 11:51:58 | 显示全部楼层
本帖最后由 上帝是笨蛋 于 2018-4-21 12:53 编辑


    On Error Resume Next
   
    Dim objFSO, objFolder, objFile, fLog, Argus, strSuffix, mFolder, mArray(), oldName, newName, I, n
   
    'Set Argus = wscript.arguments'可接收BAT调用时传递的参数
    'mFolder = Argus(0)'取第一个参数
    If mFolder = "" Then mFolder = "." '设置默认目录为脚本所在目录
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(mFolder)
    Set fLog = objFSO.CreateTextFile(objFolder.Path & "\" & Format(Now(), "yyyymmddhhssmm") & ".log", True)
    ReDim mArray(0)
   
    For Each objFile In objFolder.Files
        strSuffix = LCase(objFSO.getextensionname(objFile))
        If strSuffix <> "vbs" And strSuffix <> "log" Then
           If Err.Number = 0 Then
              ReDim Preserve mArray(UBound(mArray) + 1)
              mArray(UBound(mArray)) = objFile.Path
           Else
              Exit For
           End If
        End If
    Next
   
    If Err.Number = 0 Then
       Randomize
       For n = 1 To UBound(mArray)
           strSuffix = LCase(objFSO.getextensionname(mArray(n)))
           newName = SetFileName(18) & "." & strSuffix
           objFSO.Movefile mArray(n), objFolder.Path & "\" & newName
           If Err.Number <> 0 Then Exit For
           fLog.WriteLine (objFSO.GetFileName(mArray(n)) & ",,,,," & newName)
       Next
    End If
   
    If Err.Number <> 0 Then
       fLog.WriteLine ("Error:" & Err.Description & "," & Err.Number)
       MsgBox "Error:" & Err.Description & "," & Err.Number, vbOKOnly, "程序运行错误,即将退出……"
    End If
   
    fLog.Close
    Set fLog = Nothing
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing

    Function SetFileName(n)
    Dim I, mRnd, nRndI, ReStr
    For I = 1 To n
        nRndI = 0
        Do While (((mRnd > 90 And mRnd < 97) Or (mRnd > 57 And mRnd < 65)) And nRndI < 76) Or nRndI = 0
           mRnd = Int((122 - 48 + 1) * Rnd + 48)
           nRndI = nRndI + 1
        Loop
        ReStr = ReStr & Chr(mRnd)
    Next
    SetFileName = ReStr
    End Function

点评

[attachimg]370032[/attachimg]  详情 回复 发表于 2018-4-21 19:06
回复

使用道具 举报

发表于 2018-4-21 11:55:22 | 显示全部楼层
本帖最后由 上帝是笨蛋 于 2018-4-21 12:27 编辑

重复了
回复

使用道具 举报

发表于 2018-4-21 19:06:34 | 显示全部楼层
上帝是笨蛋 发表于 2018-4-21 11:51
On Error Resume Next
   
    Dim objFSO, objFolder, objFile, fLog, Argus, strSuffix, mFolde ...

GIF.gif

点评

刚才是把不能在脚本中运行的函数写了进来,以下是我重写的脚本,已经过我的测试。 On Error Resume Next Dim objFSO, objFolder, objFile, fLog, fLogName, Argus, strSuffix, mFolder, mArray(),  详情 回复 发表于 2018-4-21 21:32
回复

使用道具 举报

发表于 2018-4-21 19:07:26 | 显示全部楼层
本帖最后由 窄口牛 于 2018-4-21 19:29 编辑

找到个神器,批处理之家的

  1. :: rstr.bat --- 生成随机字符串
  2. :: v1.00 / 2013-6-12 / tmplinshi

  3. @echo off
  4. setlocal enabledelayedexpansion

  5. if "%~1" == "/?" goto usage

  6. :: ------------------- 默认值 -------------------
  7. set d_len=10
  8. set d_StrList=abcdefghijklmnopqrstuvwxyz0123456789
  9. :: ----------------------------------------------



  10. :: =================
  11. :: 生成随机字符串
  12. :: =================
  13. ::

  14. rem ############## 获取字符个数
  15. if "%~1" == "" (set len=%d_len%) else (set "len=%~1")

  16. rem 随机“最小字符个数-最大字符个数”
  17. if "%len:-=%" neq "%len%" (
  18.         for /f "tokens=1,2 delims=- " %%a in ("%len%") do (
  19.                 set /a min_len = %%a, max_len = %%b
  20.                 set /a "len = %random% %% (max_len-min_len+1) + min_len"
  21.         )
  22. )

  23. rem ############## 获取字符串
  24. if "%~2" == "" (
  25.         set StrList=%d_StrList%
  26. ) else (
  27.         set "StrList=%~2"

  28.         rem 替换正则
  29.         set StrList=!StrList:\d=0123456789!
  30.         set StrList=!StrList:[0-9]=0123456789!
  31.         set StrList=!StrList:[a-z]=abcdefghijklmnopqrstuvwxyz!
  32.         set StrList=!StrList:[a-zA-Z]=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!
  33. )

  34. rem ############## 计算字符串长度
  35. call :StrLen "%StrList%"

  36. rem ############## 生成随机字符串
  37. set _out=
  38. for /l %%n in (1 1 %len%) do (
  39.         set /a pos = !random! %% StrLen
  40.         for %%p in (!pos!) do set _out=!_out!!StrList:~%%p,1!
  41. )

  42. rem ############## 输出结果
  43. echo,!_out!
  44. exit /b



  45. :: =================
  46. :: 计算字符串长度
  47. :: =================
  48. ::
  49. :StrLen <string>
  50. set "_StrList=%~1"
  51. set StrLen=1

  52. for %%a in (2048 1024 512 256 128 64 32 16) do (
  53.         if "!_StrList:~%%a!" neq "" (
  54.                 set /a StrLen += %%a
  55.                 set _StrList=!_StrList:~%%a!
  56.         )
  57. )
  58. set _StrList=!_StrList!fedcba9876543210
  59. set /a StrLen += 0x!_StrList:~16,1!
  60. goto :eof



  61. :: =================
  62. :: 显示帮助
  63. :: =================
  64. ::
  65. :usage
  66. echo %~nx0 --- 生成随机字符串
  67. echo,
  68. echo 用法: %~n0 [字符个数 ^| 最小字符个数-最大字符个数] [字符串]
  69. echo         [字符个数]        默认值: 10
  70. echo         [字符串]        默认值: abcdefghijklmnopqrstuvwxyz0123456789
  71. echo                         可以使用四个正则: \d [0-9] [a-z] [a-zA-Z]
  72. echo,
  73. echo 示例: %~n0
  74. echo       %~n0 10
  75. echo       %~n0 10-15
  76. echo       %~n0 10 "0123&abc"
  77. echo       %~n0 "" \d@-_
复制代码


  1. @echo off
  2. Setlocal enabledelayedexpansion
  3. FOR /L %%n IN (1,1,16) DO 随机工具 18>>2.txt
  4. pause
复制代码


uvsmz8895oa4jfrgqn
da73i2rfufmv6o3yzf
xvt61uejftfmd81iig
ein74i394n9fh5z07h
3isunu0vtnpwt7d89y
xqxqswu410vdws5yzf
e4amvbanw3i72rr7gg
1zpu1tkv3qrrbhi33t
slbpiwh90trlpp9gmp
jyhz0nhjktx2lbmvek
m38chgxr7w0hrxfmep
33g40qlxuvv61sxdjy
tyvis6k9bbe6d6ux0d
k1c3eeh8vx38r2bvid
2xprfgc9bvl88wu480
o8xx0tt0tvl8ar833t

回复

使用道具 举报

发表于 2018-4-21 21:32:40 | 显示全部楼层


刚才是把不能在脚本中运行的函数写了进来,以下是我重写的脚本,已经过我的测试。

    On Error Resume Next
   
    Dim objFSO, objFolder, objFile, fLog, fLogName, Argus, strSuffix, mFolder, mArray(), oldName, newName, I, n
   
    Set Argus = wscript.arguments'可接收BAT调用时传递的参数
    mFolder = Argus(0)'取第一个参数
    If mFolder = "" Then mFolder = "." '设置默认目录为脚本所在目录
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(mFolder)
    fLogName = objFSO.GetFolder(".").Path & "\执行结果报告" & int(rnd*100) & ".log"
    Set fLog = objFSO.CreateTextFile(fLogName, , True)
    ReDim mArray(0)
   
    For Each objFile In objFolder.Files
        strSuffix = LCase(objFSO.getextensionname(objFile))
        If strSuffix <> "vbs" And strSuffix <> "log" Then
           If Err.Number = 0 Then
              ReDim Preserve mArray(UBound(mArray) + 1)
              mArray(UBound(mArray)) = objFile.Path
           Else
              Exit For
           End If
        End If
    Next
   
    If Err.Number = 0 Then
       Randomize
       For n = 1 To UBound(mArray)
           strSuffix = LCase(objFSO.getextensionname(mArray(n)))
           newName = SetFileName(18) & "." & strSuffix
           objFSO.Movefile mArray(n), objFolder.Path & "\" & newName
           If Err.Number <> 0 Then Exit For
           fLog.WriteLine (objFSO.GetFileName(mArray(n)) & ",,,,," & newName)
       Next
    End If
   
    If Err.Number <> 0 Then
       fLog.WriteLine ("Error:" & Err.Description & "," & Err.Number)
       MsgBox "Error:" & Err.Description & "," & Err.Number, vbOKOnly, "程序运行错误,即将退出……"
    End If
   
    fLog.Close
    Set fLog = Nothing
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing

    Function SetFileName(n)
    Dim I, mRnd, nRndI, ReStr
    For I = 1 To n
        nRndI = 0
        Do While (((mRnd > 90 And mRnd < 97) Or (mRnd > 57 And mRnd < 65)) And nRndI < 76) Or nRndI = 0
           mRnd = Int((122 - 48 + 1) * Rnd + 48)
           nRndI = nRndI + 1
        Loop
        ReStr = ReStr & Chr(mRnd)
    Next
    SetFileName = ReStr
    End Function

点评

win10运行显示 数组下标越界  详情 回复 发表于 2018-4-23 14:31
win10运行显示 数组下标越界  详情 回复 发表于 2018-4-23 14:31
回复

使用道具 举报

 楼主| 发表于 2018-4-23 14:31:54 | 显示全部楼层
上帝是笨蛋 发表于 2018-4-21 21:32
刚才是把不能在脚本中运行的函数写了进来,以下是我重写的脚本,已经过我的测试。

    On Error Res ...

win10运行显示 数组下标越界
回复

使用道具 举报

 楼主| 发表于 2018-4-23 14:31:55 | 显示全部楼层
上帝是笨蛋 发表于 2018-4-21 21:32
刚才是把不能在脚本中运行的函数写了进来,以下是我重写的脚本,已经过我的测试。

    On Error Res ...

win10运行显示 数组下标越界

点评

我是在Win8下测试的,Win8与Win10居然还有这么大的区别?  详情 回复 发表于 2018-4-23 14:43
回复

使用道具 举报

发表于 2018-4-23 14:43:50 | 显示全部楼层
qh6420933 发表于 2018-4-23 14:31
win10运行显示 数组下标越界

我是在Win8下测试的,Win8与Win10居然还有这么大的区别?
回复

使用道具 举报

发表于 2018-4-23 14:55:08 | 显示全部楼层
本帖最后由 上帝是笨蛋 于 2018-4-23 14:56 编辑

我在我的WIN10系统下测试没有问题呀。 我把我的测试结果部分发出来你看一下:

BAT命令行:Call 批量修改为字母+数字的随机文件名.vbs H:\Temp
执行结果:
rujrt (1).txt,,,,,hnWWU7O4RfFNh8Wjjt.txt
rujrt (10).txt,,,,,eBkRTXPCCmfC6f3JnX.txt
rujrt (100).txt,,,,,bRkHjDZ6FVizFaH6EG.txt
rujrt (101).txt,,,,,lFr9kFJd5cpiP9ADAD.txt
rujrt (102).txt,,,,,lxnT7MIXSykjmV4L60.txt
rujrt (103).txt,,,,,XGNYfWSKd4WQtHISfT.txt
rujrt (104).txt,,,,,FYoCkntYb9ZBsjloYH.txt
rujrt (105).txt,,,,,7RSZS5gIz3UFjXexHg.txt
rujrt (106).txt,,,,,Zd03OkMlYGAI7URcjk.txt
rujrt (107).txt,,,,,DwUHpmAILrULzZ8xmC.txt
rujrt (108).txt,,,,,dPulAjP542dhQdHiMH.txt
rujrt (109).txt,,,,,NJpxdXErVoEL0rIbT3.txt
rujrt (11).txt,,,,,5PLtpEMOz1aPYwKuBy.txt
rujrt (110).txt,,,,,GquSw1TlNwd1E4QoqF.txt
rujrt (111).txt,,,,,pJFOtNPZP9ZNLoal3t.txt
rujrt (112).txt,,,,,SUkVUGvYpUVEl2vcPw.txt
rujrt (113).txt,,,,,8TRoxZLzQnOcBHOXzI.txt
rujrt (114).txt,,,,,VZHjpAQE2vwS37uuqv.txt
rujrt (115).txt,,,,,00eCOzNEVc27ZH1fC9.txt
rujrt (116).txt,,,,,qX1Iin18CBSvzeJffW.txt
rujrt (117).txt,,,,,7fyav9et4HZbqLCal3.txt
rujrt (118).txt,,,,,Q9ju3fS0UNT5BZ3S4Q.txt
rujrt (119).txt,,,,,lICZOhXWTxqpc2rF9b.txt
rujrt (12).txt,,,,,H3DkEClWBb5Of0yL9H.txt
rujrt (120).txt,,,,,UUPQ8GfnA5eTTvLfyU.txt
…………

点评

谢谢了 都弄完了 有时间研究下  详情 回复 发表于 2018-4-23 15:04
回复

使用道具 举报

 楼主| 发表于 2018-4-23 15:04:22 | 显示全部楼层
上帝是笨蛋 发表于 2018-4-23 14:55
我在我的WIN10系统下测试没有问题呀。 我把我的测试结果部分发出来你看一下:

BAT命令行:Call 批量修改 ...

谢谢了  都弄完了  有时间研究下
回复

使用道具 举报

发表于 2018-4-23 15:07:29 来自手机 | 显示全部楼层
我这里也是提示下标错误,会不会是因为中文路径?
回复

使用道具 举报

发表于 2018-4-23 19:13:12 | 显示全部楼层
GIF.gif
回复

使用道具 举报

发表于 2018-4-24 08:31:01 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-24 09:13 编辑

生成 随机文件名 用这个 ,怎么改名 啥的,再研究。
先看这个行不行

  1. Set os=CreateObject("Wscript.shell")
  2. wscript.echo namex
  3. Function namex()
  4.   str="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
  5.         namex=""
  6.         Randomize   '初始化随机数生成器。
  7.         For n=1 To 16
  8.                 MyValue = Int(36 * Rnd+1)   ' 产生 1 到 36 之间的随机数。
  9.                 namex=namex&split(str,",")(myvalue-1)
  10.         Next
  11. end Function
复制代码


字母+数字 一共不过 36个 字符,循环16次,生成16个 1-36 的随机数,再转化成 对应的 字符,组合起来就是一个 符合要求的 字符串了。
回复

使用道具 举报

发表于 2018-4-24 09:30:52 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-24 10:01 编辑

把 需要 操作的文件夹 拖放 给这个 vbs 就可以实现了。vbs 脚本旁边会 多出一个  change.txt 文件 就是 变更记录。

不处理 子目录 内容。


先将 目标文件夹 中的文件 名称存入一个 old.txt 文件,
在 循环读取  old.txt 内容,把 其包含的文件 更名,并将 更名过程写入 change.txt 文件中
脚本包含一个  随机生成  包含字符和数字的16位字符串 的函数。


捕获.PNG
  1. Set os=CreateObject("Wscript.shell")
  2. set fs=createobject("scripting.filesystemobject")

  3. If WScript.Arguments.Count=0 Then
  4.     wscirpt.echo "没有参数!"
  5.     wscirpt.quit
  6. End If

  7. pathx=fs.GetFile(WScript.scriptFullName).ParentFolder.Path
  8. Set dir0=fs.getfolder(WScript.Arguments(0))
  9. Set Change=fs.OpenTextFile(pathx&"\Change.txt",2,True)
  10. Set Old=fs.OpenTextFile(pathx&"\Old.txt",2,True)
  11. For Each p0 In dir0.Files
  12.   OLD.WriteLine p0.ParentFolder&""&p0.Name
  13. Next
  14. old.Close
  15. Set Old=fs.OpenTextFile(pathx&"\Old.txt",1,false)

  16. DO While old.AtEndOfStream <> True
  17.     Change_name=namex()
  18.     Do while fs.FileExists(change_name)=True
  19.             Change_name=namex()
  20.     Loop
  21.   Set p0=fs.GetFile(old.readline)
  22.   Change.WriteLine p0.ParentFolder&""&p0.Name&" , "&p0.ParentFolder&""&Change_name
  23.     fs.MoveFile p0,p0.ParentFolder&""&Change_name
  24. loop

  25. old.Close
  26. change.Close

  27. Function namex()
  28.   str="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
  29.     namex=""
  30.     Randomize   '初始化随机数生成器。
  31.     For n=1 To 16
  32.         MyValue = Int(36 * Rnd+1)   ' 产生 0 到 35 之间的随机数。
  33.         'WScript.Echo myvalue
  34.         namex=namex&split(str,",")(myvalue-1)
  35.     Next
  36. end Function
复制代码

rnd.zip

803 Bytes, 下载次数: 5, 下载积分: 无忧币 -2

回复

使用道具 举报

 楼主| 发表于 2018-4-24 09:31:26 | 显示全部楼层
随机字符 我百度的 就是改名 没套明白
  1. @echo off
  2. set n=18
  3. rem n=3意思要生成3个随机字符串,如要10个修改n=10
  4. rem 开启变量延迟
  5. set str=abcdefghijkmnopqrstuvwxyz023456789023456789
  6. set nu=0
  7. :zf
  8. setlocal enabledelayedexpansion
  9. for /l %%c in (1,1,%n%) do call :slz "%%c"
  10. rem for循环n次,因为每循环一次得到1个随机字符串,n次便是n个随机字符串
  11. echo %random_str%>>随机字符.txt
  12. endlocal
  13. set /a nu+=1
  14. cls
  15. echo 已生成%nu%个随机字符

  16. goto :zf
  17. :slz
  18. if "%~1"=="" goto:eof
  19. set /a r=%random%%%43
  20. rem 生成小于36的随机数(26个字母加10个数字等于36很好理解的)
  21. set random_str=%random_str%!str:~%r%,1!
复制代码
回复

使用道具 举报

发表于 2018-4-24 09:33:45 来自手机 | 显示全部楼层
下标越界可能是vbs支持60随机,62就越界?
26+26+10是62

点评

大小写 在 win 下是一样的 ,所以 36 就 够了。 我 刚弄了个脚本 ,应该是可行的。  详情 回复 发表于 2018-4-24 10:05
回复

使用道具 举报

发表于 2018-4-24 10:05:03 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-24 10:10 编辑
窄口牛 发表于 2018-4-24 09:33
下标越界可能是vbs支持60随机,62就越界?
26+26+10是62


大小写 在 win 下是一样的 ,所以 36 就 够了。
我 刚弄了个脚本 ,应该是可行的。

通常 还是 不要把 脚本 放到 要处理 的文件夹中运行的。

vbs 中数组操作也要注意 ,个数 和 数组下标 不一致,差了一个
下标越界
应该是这个问题

For n = 1 To UBound(mArray)
应该改成
For n = 0 To UBound(mArray-1)
回复

使用道具 举报

发表于 2018-4-24 10:10:38 来自手机 | 显示全部楼层
有道理。

点评

改名 与 还原  详情 回复 发表于 2018-4-24 10:26
回复

使用道具 举报

发表于 2018-4-24 10:26:11 | 显示全部楼层
本帖最后由 dos时代菜鸟 于 2018-4-24 10:35 编辑

改名

还原

存储 变更记录 的文件 ,新名 与 旧名 不应用  逗号 作为间隔符号,因为 逗号可以参与 文件命名,文件名中有逗号 就不好处理了,所以 应该用  /  这样不能用来 参与命名  的 字符 作为 两个文件名 间的隔断。


rnd.zip

1.27 KB, 下载次数: 12, 下载积分: 无忧币 -2

回复

使用道具 举报

发表于 2020-1-15 20:02:02 | 显示全部楼层
试试看~~~~~~~~~~~~~
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 09:56

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表