山地步兵向版主及各位DX的紧急呼救(二)

sdbbsdbb

问题102.字数统计功能---速度问题 在PPC(掌上电脑)上,好几个看书软件(如CEBOOK.HAAI等)对段落字数有上限要求,一般是2050个字节,即个汉字,超过这个范围的,将会出现乱码.因此,我用"宏-002"来统计各段落的字数,(但统计记录文件放在D:\TEST目录下,名字为TTT.TXT文件,每次重新执行这个宏之前,先到D:\TEST目录下删除该文件),将超出这个范围的段落找出来,并进行二次分段. 这个程序可实现预计的要求,但有个大BUG---耗时太多,统计一个260KB的文件用时28秒,统计一个900KB的文件得1分半,一个1.8M的文件得十六分钟!请问版主,该程序有无改进的地方(主要是速度方面),有无更好的解决方案? 当然,我目前是用UltraEdit来解决这问题的,因为ULTRA的行宽正好是2050字节,我只要将水平滚动条放在最右方,再拖一遍垂直滚动条即可发现接近或超过这个限度的段落,但这个解决方案毕竟是"模拟式"的,作为一个数码产品的FANS,我希望一切都能精确......

************************************************************************************************************

问题102.字数统计功能---速度问题 在PPC(掌上电脑)上,好几个看书软件(如CEBOOK.HAAI等)对段落字数有上限要求,一般是2050个字节,即个汉字,超过这个范围的,将会出现乱码.因此,我用"宏-002"来统计各段落的字数,(但统计记录文件放在D:\TEST目录下,名字为TTT.TXT文件,每次重新执行这个宏之前,先到D:\TEST目录下删除该文件),将超出这个范围的段落找出来,并进行二次分段. 这个程序可实现预计的要求,但有个大BUG---耗时太多,统计一个260KB的文件用时28秒,统计一个900KB的文件得1分半,一个1.8M的文件得十六分钟!请问版主,该程序有无改进的地方(主要是速度方面),有无更好的解决方案? 当然,我目前是用UltraEdit来解决这问题的,因为ULTRA的行宽正好是2050字节,我只要将水平滚动条放在最右方,再拖一遍垂直滚动条即可发现接近或超过这个限度的段落,但这个解决方案毕竟是"模拟式"的,作为一个数码产品的FANS,我希望一切都能精确......

问题103.由于本问题以102的解决为前提,下次再说.

[此贴子已经被守柔于2005-4-14 2:55:12编辑过]

守柔

这是我做的一个程序,供参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-14 3:43:49 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub LenParagraphs() Dim FSO As Object, MyTxt As Object, MyFilePathName As String Dim i As Paragraph, Lenth As Long, ParCount As Long Debug.Print Now MyFilePathName = "D:\test\Ttt.txt" '定义一个文件名与路径变量 If Dir(MyFilePathName) <> "" Then Kill MyFilePathName '如果存在该文件则删除 Set FSO = CreateObject("Scripting.FileSystemObject") '定义一个FSO对象 Set MyTxt = FSO.CreateTextFile(MyFilePathName, True) '创建一个TXT文件 For Each i In ActiveDocument.Paragraphs '在活动文档的段落中循环 ParCount = ParCount + 1 '计数 MyTxt.WriteLine "第" & ParCount & "段落文字数为:" & (i.Range.End - i.Range.Start - 1) Next i MyTxt.Close '关闭 Debug.Print Now End Sub '----------------------实际运行测试:在一个210K(215552字节)的WORD文档中,有100个段落,总文字数为89800个,统计用时0秒!!