[已解决]如何实现将txt文本第一行中文数字转换阿拉伯数字后以文本第一行重命名文件

3518228042

多个TXT，每个文件一个章，第一行是章节名称，
如果第一行前面和后面有空格，都被清除掉空格，
如果第xx章后面有标题，则在第xx章和标题之间添加一个空格键的空格，
如果第xx章后面有标题，第xx章和标题之间有多个空格或大写空格，替换一个空格键的空格，
如果第xx章后面没有标题却多出个节字，删除节字，
如果第一行是空行或某行内容只有空格，则删除这一行，
如果最后一行没有换行则添加一个回车换行，有多个回车换行只保留一个回车换行，
另外一十五应该是十五，廿=二十，〇=0

将文本整理后，将第一行的大写转换为小写数字后(如果不足三位数补0)，将第一行作为文件名重命名

1. 第一章节哀顺变
   
2. ……
   
3. 第十一章   
   
4. ……
   
5. 　　第一十五章节
   
6. ……
   
7. 第廿九章　节外生枝
   
8. ……
   
9. 第两百〇一章
   
10. ……
    

复制代码

第001章 节哀顺变
……
第011章
……
第015章
……
第029章 节外生枝
……
第201章
……

happy886rr

回复 1# 3518228042
你这个要求还蛮多的，请参考http://www.bathome.net/thread-44528-1-1.html 自己写吧。

WHY

“第十五章节哀顺变”中的“节”给误删掉了，改下

1. @if (0)==(0) echo off
   
2. dir /b *.txt | cscript //nologo //e:jscript "%~f0"
   
3. pause & goto :EOF
   
4. @end
   
5. 
   
6. var str = '零一二三四五六七八九';
   
7. var obj = {};
   
8. for(var i=0; i<10; i++) obj[str.charAt(i)] = '+' + i;
   
9. obj['〇'] = '+0'; obj['两'] = '+2'; obj['廿'] = '+20';
   
10. obj['十'] = '*10'; obj['百'] = '*100'; obj['千'] = '*1000';
    
11. 
    
12. var fso = new ActiveXObject('Scripting.FileSystemObject');
    
13. var arr = WSH.StdIn.ReadAll().split('\r\n'), len = arr.length - 1;
    
14. 
    
15. for(var i=0; i<len; i++){
    
16.     var objFile = fso.OpenTextFile(arr[i]);
    
17.     var txt = objFile.ReadAll() + '\r\n';
    
18.     objFile.Close();
    
19.     txt = txt.replace(/^[         　]*\r\n/gm, '');     //删除空白行
    
20.     var m = txt.split('\r\n');
    
21.     m[0] = convertToNumber(m[0]);                     //转换第一行数字
    
22.     var objFile = fso.OpenTextFile(arr[i], 2);
    
23.     objFile.Write(m.join('\r\n'));        //重新写入文本
    
24.     objFile.Close();
    
25.     if(!fso.FileExists(m[0] + '.txt'))fso.GetFile(arr[i]).Name = m[0] + '.txt' //重命名
    
26. }
    
27. 
    
28. function convertToNumber(s){
    
29.     return s.replace(
    
30.         /^[\s　]*第([零〇一二三四五六七八九两廿十百千]+)章(?:节|[\s　]*([^\s　]*))[\s　]*$/,
    
31.         function(s0, s1, s2){
    
32.             s1 = s1.replace(/./g, function(s0){return obj[s0]}); //转换数字
    
33.             s1 = s1.replace(/^[*+]/, '');                        //删除字符串开头的*或+
    
34.             s1 = (10000 + eval(s1) + '').substr(1);              //补零
    
35.             return '第' + s1 + '章' + (s2 ? ' ' + s2 : '')
    
36.         }
    
37.     )
    
38. }

复制代码

WHY

1. Dim str, fso, file, f, txt, m
   
2. 
   
3. str = "零一二三四五六七八九十百千"
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. 
   
6. For Each file In fso.GetFolder(".").Files
   
7.     If LCase(Right(file, 4)) = ".txt" Then
   
8.         Set f = fso.OpenTextFile(file, 1)
   
9.         txt = f.ReadAll + vbCrLf
   
10.         f.Close
    
11.         txt = DelBlankLine(txt)         '删除空白行
    
12.         m = Split(txt, vbCrLf)
    
13.         m(0) = ConvertToNumber(m(0))    '转换第一行数字
    
14.         Set f = fso.OpenTextFile(file, 2)
    
15.         f.Write Join(m, vbCrLf)         '重新写入文本
    
16.         f.Close : Set f = Nothing
    
17.         Rem 重命名
    
18.         If Not fso.FileExists(m(0) + ".txt") Then fso.GetFile(file).Name = m(0) + ".txt"
    
19.     End If
    
20. Next
    
21. 
    
22. Set fso = Nothing
    
23. MsgBox "OK"
    
24. 
    
25. function DelBlankLine(s)
    
26.     Dim reg
    
27.     Set reg = New RegExp
    
28.     reg.Pattern = "^[         　]*\r\n"
    
29.     reg.Global = True
    
30.     reg.MultiLine = True
    
31.     DelBlankLine = reg.Replace(s, "")
    
32. End function
    
33. 
    
34. Function ConvertToNumber(s)
    
35.     Dim re, s1, s2, i, chr, ss
    
36.     Set re = New RegExp
    
37.     re.Pattern = "^[\s　]*第([" & str & "〇两廿]+)章(?:节|[\s　]*([^\s　]*))[\s　]*$"
    
38.     If Not re.Test(s) Then ConvertToNumber = s : Exit Function
    
39. 
    
40.     s1 = re.Execute(s)(0).SubMatches(0)
    
41.     s2 = re.Execute(s)(0).SubMatches(1)
    
42. 
    
43.     s1 = Replace(s1, "〇", "零") : s1 = Replace(s1, "两", "二") : s1 = Replace(s1, "廿", "二十")
    
44.     If Left(s1, 1) = "十" Then s1 = "一" & s1
    
45.     For i = 1 to Len(s1)
    
46.         chr = Mid(s1, i, 1)
    
47.         If InStr(str, chr) > 10 Then
    
48.             ss = ss & "*10^" & (InStr(str, chr)-10) & "+"
    
49.         Else
    
50.             ss = ss & (InStr(str, chr)-1)
    
51.         End If
    
52.     Next
    
53.     s1 = Right("0000" & eval(ss & "+0"), 4)
    
54.     If s2 <> "" Then s2 = " " + s2
    
55. 
    
56.     ConvertToNumber = "第" + s1 + "章" + s2
    
57. End Function

复制代码