中国DOS联盟

有一文本（飞信手机型号列表）存在超长行，我想提取其中指定的字符串，用P能实现吗？
文本部分示例如下，具体可看附件
批处理一：提取每一对括号内的前两个引号中的内容
1680C 1
310 3
2610 1
以此类推
批处理二：以每一对括号内的第二个引号中的内容为分类标志，提取相应的括号内的第一个引号中的内容
如示例中要提取分类标志为1的所有相应数值，则有
1680C
2610
等等，以此类推

mobiletype = new Array("1680C","1","309");mobiletype = new Array("310","3","14");mobiletype = new Array("2610","1","103");......

或者问题简单化，能不能通过P处理的方式将此超长文本行以分号为分隔符变成如下短行
mobiletype = new Array("1680C","1","309")
mobiletype = new Array("2610","1","103")
mobiletype = new Array("2630","1","200")
mobiletype = new Array("2760","1","201")
mobiletype = new Array("310","3","14")

[ Last edited by suntb on 2009-1-5 at 16:48 ]

如果不用P的话怎么办？我还是喜欢使用P处理，不过P用来处理类似的超长行实在头痛啊

先把超长行变短是不是好处理点呢？

mobiletype = new Array("1680C","1","309")
mobiletype = new Array("2610","1","103")
mobiletype = new Array("2630","1","200")
mobiletype = new Array("2760","1","201")
mobiletype = new Array("310","3","14")
mobiletype = new Array("3109c","1","296")
mobiletype = new Array("3110C","1","153")
mobiletype = new Array("3220","1","102")
mobiletype = new Array("3230","1","2")
mobiletype = new Array("3250","1","168")
……

Originally posted by linee at 2009-1-5 16:39:
先把超长行变短是不是好处理点呢？

如果能将超长行变短，其他的问题我自己可以解决了
问题是怎么通过P方式变短？

超长行纯P可能读不出来，可能要借助第三方工具。

刚测试了下，P最长能处理8184个字符，用P处理的话，你这文本至少要分4次处理。

[ Last edited by linee on 2009-1-5 at 21:00 ]

执行 set /p str=<test.txt，得到的 str 的值为 1023 个字符。

[ Last edited by tireless on 2009-1-6 at 00:19 ]

Originally posted by tireless at 2009-1-6 00:14:
执行 set /p str=<test.txt，得到的 str 的值为 1023 个字符。

[ Last edited by tireless on 2009-1-6 at 00:19 ]

用for能取到8184个字符。

Dim objFSO,objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("test.txt")
strall = objFile.ReadAll
objFile.Close

strall = Replace(strall,";",vbCrLf)

@echo on&setlocal enabledelayedexpansion
goto :skip
f 90 l17 50 51 56 57 BF 00 01 89 FE AC 3C 3B 75 02 B0 0A AA E2 F6 5F 5E 59 58
f a7 l4 90
t=90
g a8
w
q

:skip
copy test.txt aaa /y
debug aaa <%~nx0
rem 上面,以 ; 号为分隔符将数据分行

cd.>rus.txt
for /f "tokens=1-3,*" %%a in (aaa) do (
set aa=%%d
set aa=!aa:"=`!
for /f "tokens=1-4 delims=`," %%i in ("!aa!") do (

rem ****aaa
set jj=%%j
set jj=!jj: =`!
rem ****aaa 此段用来处理字符串内的空格

set "_%%k=!_%%k! !jj!"
)
)
rem 以上,读取数据并分类存入变量


for /f "tokens=1,*" %%a in ('set _') do (
set aa=%%a
set aa=!aa:~1,-1!
echo ***** !aa! 类 *****>>rus.txt
for %%i in (%%b) do (set ii=%%i&set ii=!ii:`= !&echo !ii! >>rus.txt)
echo **** end !aa! ****>>rus.txt
echo.>>rus.txt
)
rem 将分类好的变量整理,写入文本文件

pause

[ Last edited by netbenton on 2009-1-17 at 03:22 ]

Debug的话..
碰到大于64K的文档就....

建议学下gawk..

谢谢,gawk是很值得学习
但debug应该不算第三方工具吧
debug 在500k以内还是可以处理的,只是汇编代码还要增加

[ Last edited by netbenton on 2009-1-18 at 00:14 ]