- @echo off&setlocal enabledelayedexpansion
- title 工作站成果表转换为CIFLog-GeoMatrix格式
- echo.***转换文件列表***
- if exist *LST.txt del *LST.txt
- for /f "delims=" %%a in ('dir /b *.LST') do (
- set /a num+=1
- echo %%a
- set name=%%a
- for /f "skip=1 delims=!, tokens=2,3" %%i in (!name!) do (
- echo %%i %%j>>tmp.txt
- )
- if exist tmp.txt (
- echo SDEP EDEP SEQ RESULT>>!name!.txt
- call :loop
- del tmp.txt) else (echo 该文件转换失败!)
- )
- echo 当前目录下共有 %num% 个LST文件
- pause
- :loop
- for /f "tokens=1,2,3,5,13" %%i in (tmp.txt) do (
- set fg=%%l
- set re=%%m
- if !re!==1 set res=油层
- if !re!==2 set res=气层
- if !re! gtr 2 set res=!re!
- if !fg!==AVE echo %%j %%k %%i !res!>>!name!.txt
- )
复制代码 回复 11# pcl_test |