关于文本转换的问题?(100分)

  • 主题发起人 主题发起人 axf
  • 开始时间 开始时间
A

axf

Unregistered / Unconfirmed
GUEST, unregistred user!
我是初学者,下面的文本1如何转换成文本2?选取了文本1中的一些项目,生成文本2。
文本1:
402001^土地矿产资源管理局^行政^0^3010010001^刘文政^381001100003612^342401351211141^03^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^180.00^.00^.00^.00^62.02^.00^951.40^109.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^.00^1302.42^.00^.00^.00^.00^.00^.00^.00^1302.42^

文本2:
00000000003010010001刘文政 381001100003612342401351211141 1302.42
 
只要你的文本有一定的规律,比如说第几个字符到第几个字符是什么,没有变动.那么你可以
读出该行文本,用COPY这个函数,就可得到你想要的字符.如果没有规律或规律很乱,那就难办
了.
 
先找到两者间的转换规律
然后就可以用Delphi的字符串操作函数搞定了
如Pos, Copy, Delete, StringReplace等等
 
只要有规律,就可以实现,如果没有规律,就不能实现,可以手动录入。
 
后退
顶部