[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

尺码转换

文件夹内有多个TXT文件(包含多级子文件夹),内容如下。  把cm换算成in 英寸 . 1厘米等于0.3937007874英寸.  结果取到小数点后1位。 直接在txt里替换。
有偿100

size:XS
Shoulder:41 cm
Bust:74 cm
Waist Size:60 cm
Hip Size:66 cm
Sleeve Length:58.5 cm
Length:92 cm
Cuff:15 cm

  1. /*&cls&echo off
  2. cd /d "%~dp0"
  3. dir /a-d-h/b/s *.txt|cscript -nologo -e:jscript "%~f0"
  4. pause
  5. exit
  6. */
  7. var fso=new ActiveXObject('Scripting.FileSystemObject');
  8. while(!WSH.StdIn.AtEndOfStream){
  9.     var it=WSH.StdIn.ReadLine();
  10.     WSH.echo(it);
  11.     try{
  12.         var file=fso.GetFile(it);
  13.         var f1=fso.OpenTextFile(file.Path, 1);
  14.         var text=f1.ReadAll();
  15.         f1.Close();
  16.         text=text.replace(/(\d+(?:\.\d+)?) cm/g,function(a,b){
  17.             return (Number(b)*0.3937007874).toFixed(1).replace(/\.0$/,'')+' in';
  18.         });
  19.         var f2=fso.CreateTextFile(file.Path, 2);
  20.         f2.Write(text);
  21.         f2.Close();
  22.     }catch(e){}
  23. }
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

本帖最后由 newswan 于 2021-9-5 08:21 编辑

直接修改文件
  1. @cd /d %~dp0 & powershell -command "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause & exit/b
  2. set $sour= "."
  3. Get-ChildItem -Path $sour -Filter "*.txt" -Recurse | foreach-object {
  4.     write-host ("`n" + $_.fullname)
  5.     get-content $_ | foreach-object {
  6.         if ($_ -match "(.*:)(\d+(?:.\d)?) cm")
  7.         {
  8.             $inch = [Math]::Round(([double]$matches[2]) * 0.3937007874 , 1)
  9.             ($matches[1] + $inch + " inch")
  10.         }
  11.         else
  12.         {
  13.             $_
  14.         }
  15.     } | out-file ($_.fullname)
  16. }
复制代码

TOP

返回列表