[文本处理] 批处理如何实现将excel的更新内容同步到文本文件中？

wxdboiled

比如说一个excel
A         B            C       [attach]7805[/attach]（注 A B C为excel 默认的表头，不是自己写的表头）
key1          名称        name
key2          角色        role
key3          权限        right
key4          日期        date
key5   时间        time

一个映射文件mapfile
zh{
key1:="名称",
key2:="角色",
key3:="权限",
key4:="日期",
key5:="时间"
}
en{
key1:="name",
key2:="role",
key3:="right",
key4:="date",
key5:="time"
}

这里key1  key2 key3 key4 key5....是固定的，对应在excel中的A列，B列对应zh{}中的内容，C列对应en{}。
通过key1-5 来替换mapfile中的内容。
请各位大神帮忙，多谢。

apang

@set @n=0;/* & echo off
cscript -nologo -e:jscript "%~0" > mapfile.txt
pause & exit/b & rem */

path = WScript.ScriptFullName.replace(/(.*?)[^\\]+$/, "$1");
oExcel = new ActiveXObject("Excel.Application");
oBook = oExcel.WorkBooks.Open(path + "wxd.xls");
oExcel.Visible = false;
oExcel.WorkSheets(1).Activate;
row = oExcel.ActiveSheet.UsedRange.Rows.Count;
sZH = "zh{\r\n";
sEN = "en{\r\n";
for (i=1; i<=row; i++) {
        sKey = oExcel.Cells(i, 1);
        sZH += sKey + ':="' + oExcel.Cells(i, 2) + '",\r\n';
        sEN += sKey + ':="' + oExcel.Cells(i, 3) + '",\r\n';
}
oBook.Close(); oExcel.Quit()

sZH = sZH.replace(/,\r\n$/, "\r\n}");
sEN = sEN.replace(/,\r\n$/, "\r\n}");

WScript.Echo(sZH + "\r\n" + sEN)
复制代码

wxdboiled

回复 2# apang


这个脚本可以实现将excel输入到.txt文件中，但如果.txt文件中的内容有不在excel中的，但又不能删除，就只能通过key来替换txt中对应key后的内容。

麻烦再看下如何可以实现这样的需求。

apang

回复 3# wxdboiled


   

如果.txt文件中的内容有不在excel中的，但又不能删除

你一开始就应该给一个这样的样本

apang

回复 3# wxdboiled


    这样试试，zh{} 和 en{} 括弧中的内容全部做替换，括弧外的内容不变

@set @n=0;/* & echo off
cscript -nologo -e:jscript "%~0" < mapfile.txt > $
move $ mapfile.txt
pause & exit/b & rem */

path = WScript.ScriptFullName.replace(/(.*?)[^\\]+$/, "$1");
oExcel = new ActiveXObject("Excel.Application");
oBook = oExcel.WorkBooks.Open(path + "wxd.xls");
oExcel.Visible = false;
oExcel.WorkSheets(1).Activate;
row = oExcel.ActiveSheet.UsedRange.Rows.Count;
arZH = []; arEN = [];
for (i=1; i<=row; i++) {
        sKey = oExcel.Cells(i, 1);
        arZH.push(sKey + ':="' + oExcel.Cells(i, 2) + '"');
        arEN.push(sKey + ':="' + oExcel.Cells(i, 3) + '"');
}
oBook.Close(); oExcel.Quit()

sZH = "\r\n" + arZH.join(",\r\n") + "\r\n";
sEN = "\r\n" + arEN.join(",\r\n") + "\r\n";
txt = WScript.StdIn.ReadAll();
txt = txt.replace(/(zh\{)[\s\S]*?(?=\})/i, "$1" + sZH);
txt = txt.replace(/(en\{)[\s\S]*?(?=\})/i, "$1" + sEN);

WScript.StdOut.Write(txt)
复制代码

wxdboiled

回复 5# apang


    这样不行的。zh{}和en{}中也有可能有其他的内容，如果这样替换的话就会丢失的。

apang

我还以为更新测试样本了呢，害我又下载一次

不明白你的真实意图，我放弃。

wxdboiled

回复 7# apang


    就是想根据key来做替换的。我错了，帮帮忙吧。。。