本帖最后由 CrLf 于 2015-12-6 00:00 编辑
- mshta "http://bathome.net/s/hta/index.html?load=+sprintf" type('veryhuo.csv').split(/\r?\n/)._EACH(function(s){a=s.split(',');return sprintf('BEGIN:VCARD\r\nVERSION:3.0\r\nN:;%%s;;;\r\nFN:%%s\r\nTEL;TYPE=X-qchat:%%s\r\nEND:VCARD\r\n',a[0],a[0],a[1])}).slice(1).join('\r\n') >temp.txt
复制代码 其实原来有一个 csv 库的,但使用起来好像有点问题,不知道是不是 bug
受权限所制,在线 hta 不能使用 adodb.stream 写入文件,所以若要输出为 utf-8 需要这样写- <!-- :
- @echo off
- mshta "%~f0" veryhuo.csv temp.txt
- pause&exit /b
- -->
- <script src=http://bathome.net/lib/diy/Libs.js></script>
- <script>
- Libs.append('hide')
- Libs.append('WSH')
- Libs.append('prototype')
- Libs.append('diyprototype')
- Libs.append('function')
- Libs.append('iconv')
- Libs.append('sprintf')
- </script>
- <script>
- var arr = type(WSH.Arguments(0)).split(/\r?\n/).slice(1)
- var str = arr._EACH(
- function(s){
- a=s.split(',')
- return sprintf('BEGIN:VCARD\r\nVERSION:3.0\r\nN:;%s;;;\r\nFN:%s\r\nTEL;TYPE=X-qchat:%s\r\nEND:VCARD\r\n',a[0],a[0],a[1])
- }
- ).join('\r\n')
- iconv.saveText(str,WSH.Arguments(1),'utf-8')
- </script>
复制代码
|