MyException - 我的异常网
当前位置:我的异常网» PB » PB里怎么读入上面一段文本信息

PB里怎么读入上面一段文本信息

www.MyException.Cn  网友分享于:2013-02-20  浏览:5次
PB里如何读入下面一段文本信息?
该文本是身份证阅读器读卡后自动产生的一个文本,名字是WZ.TXT;
它给的DELPHI例子是这样的

      iFileHandle := FileOpen(ExtractFilePath(Application.ExeName) +'wz.txt',       fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      Buffer := PWideChar(AllocMem(iFileLength +2));
      FileRead(iFileHandle, Buffer^, iFileLength);
      FileClose(iFileHandle);
      sWZ:=WideChartostring(buffer);

      EditName.Text:=copy(sWZ,1,15);  //姓名

wz.txt里面的文本是:
-岧Vs^                        1 0 1 1 9 7 8 0 6 0 6 VnSw??W禰蟚陙籰縎-濸[鉙aNY棄[Qg孨膥                              4 2 0 5 2 7 1 9 7 8 0 6 0 6 1 0 1 1 ??W禰蟚陙籰縎lQ塠@\        2 0 1 1 1 0 1 9 2 0 3 1 1 0 1 9                                     
如何用 pb9将上面的代码例子翻译过来?并能正确读出wz.txt里面的内容

------解决方案--------------------
3年前做过,好像要转码先。。。忘记了。
------解决方案--------------------
PB12 里好读取,fileopen时可以指定编码读取
PB9里有Tounicode 不知道能不能行

下面是用utf16le读取出来的大概内容:
谭国平††††††††††††‱‰‱‱‹‷‸‰‶‰‶湖北省㽿圿家族自治县鸭子口乡静安村二组†††††††††††††††‴′‰‵′‷‱‹‷‸‰‶‰‶‱‰‱‱㽿圿家族自治县公安局††††′‰‱‱‱‰‱‹′‰″‱‱‰‱‹†

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有