读书人

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

发布时间: 2013-02-19 11:11:40 作者: rapoo

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 ??WlQ@\ 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读取出来的大概内容:
谭国平?????????????‰?????‰?‰?湖北省?家族自治县鸭子口乡静安村二组????????????????′‰′?????‰?‰??‰???家族自治县公安局????′‰???‰??′‰″??‰???

读书人网 >PB

热点推荐