批处理之家 - Powered by Discuz! Board

@echo off&setlocal enabledelayedexpansion
for %%a in (*新.txt) do (
set /p first=<%%a
set /a GR=SP=n=0
for %%b in (!first!) do (
set /a n+=1
for %%c in (GR SP) do if %%b==%%c set %%c=!n!&set "str=!str! %%c "
)
if !GR! gtr !SP! set /a GR=SP,SP=!GR!
call :tokens "%%a"
)
)
pause&exit
:tokens
(for /f "useback tokens=%GR%,%SP%" %%a in (%1) do (
set str=
for %%c in (%%a %%b) do set "var= %%c"&set str=!str!!var:~-11!
echo;!str!
))>#%%~na.txt

复制代码

@echo off&setlocal enabledelayedexpansion
for %%a in (*新.txt) do (
set /p first=<%%a
for %%b in (!first!) do (
set /a n+=1
for %%c in (GR SP) do if %%b==%%c set %%c=!n!&set "str=!str! %%c "
)
echo;!str!
for /f "useback eol=# delims=" %%b in ("%%a") do (
set str=&set n=
for %%c in (%%b) do (
set /a n+=1,"test=(n-SP)*(n-GR)"
if !test!==0 (
set "tmp= %%c"
set "str=!str!!tmp:~-11!"
)
)
echo;!str!
)
)>%%~na2.txt
pause

复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('dir /b *.txt') do (
set/p txt1=<%%a
set /a n=0
for %%b in (!txt1!) do (
set /a n+=1
if %%b==GR set n1=!n!
if %%b==SP set n2=!n!
)
rem if !n1! gtr !n2! (set/a n1=!n2!,n2=!n1!)
call :cc %%a !n1! !n2!
)
:cc
(for /f "tokens=%2,%3" %%a in (%1) do echo %%a %%b)>nul1
del %1&ren nul1 %1

复制代码

@echo off&setlocal enabledelayedexpansion
for %%a in (*新.txt) do (
set /p first=<%%a
for %%b in (!first!) do (
set /a n+=1
for %%c in (GR SP) do if %%b==%%c set %%c=!n!
)
for /f "useback delims=" %%b in ("%%a") do (
set str=&set n=
for %%c in (%%b) do (
set /a n+=1,"1/(n-SP)/(n-GR)"||set str=!str!"%%c",
)
echo;!str!
)
)>%%~na.csv 2>nul
pause

复制代码

@set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b
folder = "C:\\Kate Green\\txt"; //txt文件所在目录
flag = true;
fso = new ActiveXObject("Scripting.FileSystemObject");
tmpdir = fso.GetSpecialFolder(2)+"\\"+fso.GetTempName();
fso.CreateFolder(tmpdir);
//把文件转换成标准的csv文件，后面作为数据库处理
fc = new Enumerator(fso.GetFolder(folder).files);
for (; !fc.atEnd(); fc.moveNext()) {
var fi = fc.item();
if (fi.Path.slice(-4).toLowerCase()==".txt") {
var s = fi.OpenAsTextStream().ReadAll();
s = s.replace(/^\s+|\s*\n\s*/g,'\r\n').replace(/ +/g,',');
//让ADO把GR,SP这两列的数据类型识别成文本，以免ADO自动对数字进行优化去掉后面的零
if (flag) s = s.replace(/^.*\n/g,
function(s){return s+new Array(21).join(s.replace(/\bGR\b|\bSP\b/g,'#'));});
var ts = fso.OpenTextFile(tmpdir+'\\'+fi.Name, 2, true);
ts.write(s); ts.close();
}
}
//使用ADO处理文本数据
strConnect = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + tmpdir
+ ';Extended Properties="text;HDR=yes;FMT=Delimited;";';
AdoCnn = new ActiveXObject("ADODB.Connection");
AdoCnn.ConnectionString = strConnect;
AdoCnn.Open();
AdoRsSchema = AdoCnn.OpenSchema(20);//adSchemaTables=20
s = "GR,SP\r\n";
AdoRs = new ActiveXObject("ADODB.Recordset");
while (!AdoRsSchema.EOF) {
AdoRs.Open("SELECT [GR],[SP] FROM ["+AdoRsSchema("table_name")+"]", AdoCnn, 3);
if (flag) AdoRs.Move(20);
s += AdoRs.GetString(2, AdoRs.RecordCount, ",", "\r\n");
AdoRs.Close();
AdoRsSchema.MoveNext();
}
fso.OpenTextFile('result.csv', 2, true).write(s);
fso.DeleteFolder(tmpdir);

复制代码