读取某些TXT时，只读了前一半，后面的没了，如果我用记事本打开TXT，什么都不做，直接文件-》保存，就可以了，我用16进制打开看到的是一样的呀，有知道这是怎么回事吗?并且没保存前怎么读全呢？2012-07-18 09:56:58楼主

比较下读取完全的和不完全的文件之间的区别，大小或者带有特殊符号。2012-07-18 10:50:24 #1得分 2有可能与TXT文件的换行格式有关，可以分别试一下读DOS格式、UNIX格式和MAC格式的情况，然后再试一下混合格式

如没问题的话在检查一下有没有特殊字符

找到原因，只在之前中间有\0，用记事本打开在保存，这些\0就没了，有什么办法替换掉这些\0吗

文本文件里没结束就出现了结束符\0，这个要怎么样替换掉呢？

hyz_cs

你这个文件不是文本文件吧,要不然里面怎么会有\0呢,或者编码不对?_fastcall

文件后半部分还没有保存

LWLIFE

这个是别人导出的文本文件，里面有我需要的描述信息，用十六进制查看的时候在中间地方就是有\0的存在，所以我用TStringList加载的时候只加载了前半部分，有什么办法解决吗？

sczyq

先读取到 TMemoryStream 流，逐个字节判断是否0x00 就改为　0x20(空格)，

再　TStringList－〉LoadFromStream　装入这个流。

LWLIFE

谢谢楼上的回复，我现在就是这么做的，循环流判断的时候怎么直接替换流里的内容呢？比如流长度20，10的位置就是\0我现在的做法是，循环判断不是\0就加到另一个字符串，然后最后显示另一个字符串。有什么办法直接修改流里的内容呢？

Blank

打开文件，直接都读到内存中，然后进行替换，把'\0'都替换成空格，然后在用TStringList去读进行了，或者不用TStringList，直接处理也行2012-07-18 18:41:16

View文章原文 Code

procedureTForm9.btn3Click(Sender: TObject);varsPostUrl :string;

  postStream,outStream : TMemoryStream;

  resstring :string;

  B:array ofChar;

  I : Integer;

  P:PChar;

  strs: TStringList;

  Stream : TStringStream;beginsPostUrl := 'http://*****/alarmqueries';

  idhtp1.Request.ContentType := 'application/x-www-form-urlencoded'; //定义发送mime类型
  postStream := TStringStream.Create('param={"end":"2020-10-22 23:59:59","commno":["14765145811"],"begin":"2020-10-22 00:00:00"}');  //发送内容
  outStream := TMemoryStream.Create;

  idhtp1.Post(sPostUrl,postStream,outStream);

  outStream.Position := 0;

  Stream := TStringStream.Create('',TEncoding.UTF8);

  Stream.LoadFromStream(outStream);

  resstring :=Stream.DataString;for i :=0 to Length(resstring) - 1 do
  begin
    if resstring[i] = #0 then
    beginresstring[i] := #32
    end;end;

  strs := TStringList.Create();

  strs.Text:=resstring;

  mmo1.Text :=((resstring));//outStream.DataString;
showmessage(inttostr(mmo1.Lines.Count));

  showmessage(inttostr(strs.Count));end;

function TGQHttp<T>.PostEx(url: string; paramList: THttpParams;

  postJson:string): THttpResults<T>;varinStream, outStream: TMemoryStream;

  prm: THttpParam;

  prms: TStringList;beginCheckTask;tryoutStream := nil;

    inStream := TMemoryStream.Create;

    prms := TStringList.Create;if ((paramList <> nil) and (paramList.Count > 0)) then
    begin
      if (rightstr(url, 1) <> '?') thenurl := url + '?';for prm in paramList dourl := url +prm.ToString();end;if (UpperCase(LeftStr(url, 4)) <> 'HTTP') thenurl := fRootURL +url;

    OutputDebugString(PWideChar('post:' + url + fJsonParamName + ':' +postJson));try
      if (postJson <> '') thenprms.Add(fJsonParamName+ '=' +postJson);//OutputDebugString(PWideChar('json:' + postJson));
self.PostTest(url, prms, inStream);if self.Response.ContentEncoding = 'gzip' then
      begininStream.Position := 0;

        outStream := TMemoryStream.Create;

        GZDecompressStream(inStream, outStream);

        OutputDebugString(PWideChar('压缩传输:' + inttostr(inStream.Size) + '/' +inttostr(outStream.Size)));

        result := THttpResults<T>.Create(true, 'OK', outStream, url,prms.Text);end
      else
      beginresult := THttpResults<T>.Create(true, 'OK', inStream, url,prms.Text);

        OutputDebugString(PWideChar('未压缩'));end;excepton ex: Exceptiondo
      beginresult := THttpResults<T>.Create(false,'网络查询失败：请检测网络连接' + ex.Message, nil, url);end;end;finally
    FreeAndNil(paramList);FreeAndNil(prms);FreeAndNil(inStream);if(Assigned(outStream)) then FreeAndNil(outStream);end;end;

View Code

constructor THttpResults<T>.Create(aIsSucc: Boolean; msg: string;

stream: TStream; aURL:string; aParamStr: string);varstrs: TStringList;

  i: Integer;

  StrStream : TStringStream;

  DataStr:string;beginself.fIsSucc :=aIsSucc;

  self.fMsg :=msg;

  self.Url :=aURL;

  self.fParamStr :=aParamStr;

  self.fData := TEntitys<T>.Create;

  strs := TStringList.Create();if ((self.fIsSucc) and (stream <> nil)) then
  begin
    trystream.Position := 0;if PosEx('/alarmqueries', aURL, 1)<1 then
      beginstrs.LoadFromStream(stream, TEncoding.UTF8);end else
      beginStrStream := TStringStream.Create('',TEncoding.UTF8);

        StrStream.LoadFromStream(stream);

        DataStr :=StrStream.DataString;for i :=0 to Length(DataStr) - 1 do
        begin
          if DataStr[i] = #0 then
          beginDataStr[i] := #32
          end;end;

        strs.Text:=DataStr;FreeAndNil(StrStream);end;//strs.SaveToFile('c:\debug.txt');
self.fData.FillByStrings(strs);excepton ex: Exceptiondo
      beginself.fIsSucc :=False;

        self.fMsg := '发生错误:' + ex.Message + #13 + 'URL' + aURL + #13 + 'Param' +aParamStr;//strs.SaveToFile('c:\debug.txt');
        //TTask.ShowMsg(self.msg);
      end;end;end;FreeAndNil(strs);end;

bom: array[0..1] ofbyte;if (stream.Read(bom, sizeof(bom)) = 2) and (bom[0] = $FF) and (bom[1] = $FE) then

procedure TXLSStream.WriteFile(RecId, Length: word; Filename: string);varS:string;

  B: byte;

  Stream: TFileStream;beginStream := TFileStream.Create(Filename,fmOpenRead);tryWriteHeader(RecId,Length);

    SetLength(S,3);while (Length > 0) and (Stream.Read(Pointer(S)^,3) = 3) do beginB := 0;if AnsiChar(S[1]) in ['0'..'9'] thenB := (Byte(S[1]) - Byte('0')) shl 4
      else if AnsiChar(S[1]) in ['A'..'F'] thenB := (Byte(S[1]) - Byte('A') + 10) shl 4;if AnsiChar(S[2]) in ['0'..'9'] thenB := B + (Byte(S[2]) - Byte('0'))else if AnsiChar(S[2]) in ['A'..'F'] thenB := B + (Byte(S[2]) - Byte('A') + 10);

      WByte(B);

      Dec(Length);end;finallyStream.Free;end;end;