[已解决]批处理怎样把文本的字符串编码化urlencode？

w1983912

我也不知道该怎么表达这个需求 。。。。。。

a.txt内容:
xmyyy2y@@知道
xx55lud@@合同x路
5abccc@@人民
pxeke5xxx@@旅游abcd


如 第一行        xmyyy2y@@知道          得到      <a href="/x/xmyyy2y/%e7%9f%a5%e9%81%93.html">知道</a>
                     xx55lud@@合同x路       得到      <a href="/x/xx55lud/%e5%90%88%e5%90%8cx%e8%b7%af.html">合同x路</a>

注意: "知道"的utf-8格式的url编码(urlencode)是"%e7%9f%a5%e9%81%93"        参考转换:http://tool.chinaz.com/Tools/URLEncode.aspx
         "合同x路"的utf-8格式的url编码(urlencode)是"%e5%90%88%e5%90%8cx%e8%b7%af"

以上只是把字符串变成utf-8的编码   希望不会搞混   同样也需要字符串变成gbk的编码的批处理版本

以上只列出几行  a.txt 是gbk格式的文本 得到的x.txt也是gbk格式 有N行  


    请知道的朋友尽量帮帮忙 谢谢了

Demon

你PHP不是很牛么，怎么不用PHP

wankoilz

我这有个vbs，你参考下：

1. Function URLEncoding(vstrIn)
   
2. strReturn = ""
   
3. For i = 1 To Len(vstrIn)
   
4.     ThisChr = Mid(vStrIn,i,1)
   
5.     If Abs(Asc(ThisChr)) < &HFF Then
   
6.         strReturn = strReturn & ThisChr
   
7.     Else
   
8.         innerCode = Asc(ThisChr)
   
9.         If innerCode < 0 Then
   
10.             innerCode = innerCode + &H10000
    
11.         End If
    
12.         Hight8 = left(cstr(hex(innerCode)),2)
    
13.         Low8 = right(cstr(hex(innerCode)),2)
    
14.         strReturn = strReturn & "%" & Hight8 & "%" & Low8
    
15.     End If
    
16. Next
    
17. URLEncoding = strReturn
    
18. End Function
    
19. 
    
20. Function URLUncoding(code)
    
21. str="0123456789abcdef"
    
22. set reg=new regexp
    
23. reg.ignoreCase=true
    
24. reg.global=true
    
25. reg.pattern="%\w\w%\w\w"
    
26. set matches=reg.execute(code)
    
27. for each matche in matches
    
28.     matche=replace(matche,"%","")
    
29.     sum=0
    
30.     for i=1 to 4
    
31.         singlechr=mid(matche,i,1)
    
32.         number=instr(1,str,Lcase(singlechr),1)-1
    
33.         sum=sum+number*16^(4-i)
    
34.     next
    
35.     word=chr(sum-65536)
    
36.     URLUncoding=URLUncoding&word
    
37. next
    
38. End Function
    
39. 
    
40. s=inputbox("输入Code或中文")
    
41. If inStr(s,"%") then
    
42.     return=msgbox(URLUncoding(s),0,"结果")
    
43. Else
    
44.     return=msgbox(URLEncoding(s),0,"结果")
    
45. End if

复制代码

抱歉，刚才仓促回帖，没注意到是utf-8，这个vbs只支持gbk

Batcher

批处理如何把中文转为URL编码？
http://bbs.bathome.net/thread-6084-1-1.html

w1983912

谢谢以上朋友的指点 代码过于烦琐 我这菜鸟级的 很难凑出来 很费精力  现在也只能一个文件夹一个文件夹的弄了

Demon

PHP水平有待提高

1. 
   
2. <?php
   
3. $in = fopen('a.txt', 'rb');
   
4. $out = fopen('x.txt', 'wb');
   
5. if (!$in || !$out) die();
   
6. while (!feof($in)) {
   
7.         $str = trim(fgets($in));
   
8.         $str = iconv('gbk', 'utf-8', $str);
   
9.         $arr = explode('@@', $str);
   
10.         $str = sprintf('<a href="/x/%s/%s">%s</a>',
    
11.                         urlencode($arr[0]), urlencode($arr[1]), $arr[1]);
    
12.         $str = iconv('utf-8', 'gbk', $str);
    
13.         fputs($out, "$str\r\n");
    
14. }
    
15. fclose($in);
    
16. fclose($out);
    
17. ?>
    

复制代码

w1983912

感谢
说实话，不怕大家笑话  我根本就没学任何语言  都是需要用到才学一下  功能我知道 但是不会写代码  只会稍微修改和照搬代码  不会灵活使用  想法虽有 就是不会代码  郁闷啊
能得到大家的帮助 很高兴 这也是我继续做站的动力  光搜索到的还是有很多不足

Batcher

5# w1983912


用for命令遍历一下文件夹即可。

批处理for命令从入门到精通以及配套练习题
http://bbs.bathome.net/thread-2189-1-1.html
http://bbs.bathome.net/thread-2336-1-1.html