当前位置: 代码迷 >> PB >> PB里怎么读入上面一段文本信息
  详细解决方案

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

热度:8477   发布时间:2013-02-26 00:00:00.0
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读取出来的大概内容:
谭国平?????????????‰?????‰?‰?湖北省?圿家族自治县鸭子口乡静安村二组????????????????′‰‵′?????‰?‰??‰???圿家族自治县公安局????′‰???‰??′‰″??‰???

  相关解决方案