Вопрос # 6 657: …сперты! У меня такой вопрос, когда произвожу парсинг текстового файла… (страница 2) (Общие вопросы по программированию)

Приветствую, уважаемые эксперты!
У меня такой вопрос, когда произвожу парсинг текстового файла и замену нужных мне значений, а потом сохранение, на выходе получаю какую то галиматью, а при отладке вроде как все нормально преобразуется.

Правда сам файл не txt, но если рассуждать логически то состоит из тех же самых байтов, что и txt. Пример файла прикрепляю ниже.

Приложение:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, XPMan, StdCtrls, Math;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
XPManifest1: TXPManifest;
MainMenu1: TMainMenu;
File1: TMenuItem;
Open1: TMenuItem;
OpenDialog1: TOpenDialog;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
procedure Open1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type Combine = record
Str: String;
LayerNum: Integer;
End;
Function ParseAndChangeTemp(ParseString,first,last: String):String;
Function FindEndOfString(Pos: Cardinal; Mem: TMemoryStream):Cardinal;
Function AddString(Destination,Source:String; Position:Integer): String;
Function CopyFromPosToEnd(Source: String; Position: Integer):String;
Function CopyFromBegToPos(Source: String; Position: Integer):String;
Procedure Make();
var
Form1: TForm1;
Mem1,Mem2: TMemoryStream;
FilePath: string;
Dest, Dest2: String;
layer,temp,NumRun,first,last,step: integer;
LastString, S: String;
i: integer;
comb: combine;
Pos,StringEnd: Cardinal;
StringLength: Integer;
position, tmp: PChar;
num, n: Cardinal;
Dst1,Dst2: String;
Param1,Param2: PChar;
const
z: string = 'G1 Z';
implementation
{$R *.dfm}
Function FindEndOfString(Pos: Cardinal; Mem: TMemoryStream):Cardinal;
var
ch: Char;
Begin
ch:='0';
while ((ch<>chr(13)) and (Pos<=Mem.Size-1)) do
Begin
Mem.Read(ch,1);
Pos:=Pos+1;
End;
Result:=Pos;
End;
Function ParseAndChangeTemp(ParseString,first,last: String):String;
var
pos, tmp,tmp2: PChar;
num, n: integer;
Rez: String;
Begin
tmp:=PChar(ParseString);
tmp2:=PChar(First);
Rez:=ParseString;
While StrPos(tmp,tmp2)<>nil do
Begin
Dest:='';
Dest2:=last;
pos:=StrPos(tmp,PChar(First));
num:=Cardinal(pos)-Cardinal(tmp)-1;
Dest:=CopyFromBegToPos(ParseString,num);
num:=num+Length(First)+1;
Dest2:=CopyFromPosToEnd(ParseString,num);
num:=Length(Dest);
Dest:=AddString(Dest,last,num);
num:=Length(Dest);
Rez:=AddString(Dest,Dest2,num);
tmp:=PChar(Rez);
End;
Result:=Rez;
End;
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute=True then
FilePath:=OpenDialog1.FileName;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Make;
end;
Function AddString(Destination,Source:String; Position:Integer): String;
Var
DstLngth,SrcLngth: Integer;
n: Integer;
Ch: Char;
Begin
DstLngth:=Length(Destination);
SrcLngth:=Length(Source);
If ((Position<>0) and (Position<=DstLngth)) then
Begin
DstLngth:=Position+SrcLngth;
SetLength(Destination,DstLngth);
For n:=0 to (DstLngth-1) do
Begin
Ch:=Source[n+1];
Destination[n+Position+1]:=Ch;
End;
End
else
Result:=Destination;
End;
Function CopyFromPosToEnd(Source: String; Position: Integer):String;
Var
TmpStr: String;
StrLngth: Integer;
Ch:char;
Begin
StrLngth:= Length(Source);
SetLength(TmpStr,(StrLngth-Position));
If ((Position<=(StrLngth-1)) and (Position>0)) then
Begin
For n:=Position+1 to StrLngth do
Begin
ch:=Source[n];
TmpStr[n-Position]:=Ch;
End;
End
else
Result:=TmpStr;
End;
Function CopyFromBegToPos(Source: String; Position: Integer):String;
Var
TmpStr: String;
StrLngth: Integer;
Ch:char;
Begin
StrLngth:= Length(Source);
SetLength(TmpStr,(StrLngth-(StrLngth-Position-1)));
If ((Position>=0) and (Position<(StrLngth-1))) then
Begin
For n:=0 to (Position) do
Begin
ch:=Source[n+1];
TmpStr[n+1]:=Ch;
End;
End
else
Result:=TmpStr;
End;
Procedure Make();
Begin
Mem1:=TMemoryStream.Create;
Mem2:=TMemoryStream.Create;
Mem1.LoadFromFile(FilePath);
temp:=(StrToInt(Unit1.Form1.Edit2.Text)+1);
step:=Round(step/(last-first));
i:=1;
Mem2.SetSize(0);
while (Pos+1)<Mem1.Size do // <>
Begin
S:='';
if i<=2 then
else
if S<>LastString then
i:=i+1;
Mem2.WriteBuffer(S,Length(S));
End;
Mem2.SaveToFile(FilePath);
Mem1.Free;
Mem2.Free;
End;
end.

Мини-форум вопроса

var Form1: TForm1; Mem1,Mem2: TMemoryStream; FilePath: string; Dest, Dest2: String; layer,temp,NumRun,first,last,step: integer; LastString, S: String; i: integer; comb: combine; Pos,StringEnd: Cardinal; StringLength: Integer; position, tmp: PChar; num, n: Cardinal; Dst1,Dst2: String; Param1,Param2: PChar; const z: string = 'G1 Z'; implementation

procedure caststring; var fs: TFileStream; const s: string = 'Hello'; begin fs := TFileStream.Create('temp.txt', fmCreate or fmOpenWrite); fs.Write(s, Length(s)); // this will give you garbage fs.Write(PChar(s)^, Length(s)); // this is the correct way end;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 6 657

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 6 657

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом