Ĺadny brzuch
mam stringa do którego ładuję z pliku tekst. I chcę do każdej linijki na końcu dodać "<br>" i mi nie wychodzi ;/ próbowałem coś takiego ale nie działa ;P
vat s:string; tekst:string; begin repeat Readln(tekst, S); Lista.text:=Lista.Text + '<br>' + S; until S = nil;
ja bym to zrobił tak że jeśli w tekście są entery to bym szukał ciągu znaków \r\n i w odpowiednim miejscu bym dodawał to br
1. sposób:procedure TForm1.Button1Click(Sender: TObject); var s:TStringList; i:integer; begin s:=TStringList.Create; s.LoadFromFile('c:\windows\setuplog.txt'); for i:=0 to s.Count-1 do s[i]:=s[i]+'<br>'; s.SaveToFile('c:\plik.txt'); s.Free; end;
2. sposób:procedure TForm1.Button1Click(Sender: TObject); var f:file; b, b2:pchar; s:integer; begin AssignFile(f,'c:\windows\spslpsrm.log'); Reset(f,1); s:=FileSize(f); GetMem(b,s); BlockRead(f,b^,s); b2:=PChar(StringReplace(b,#13#10,'<br>'#13#10,[rfReplaceAll]) ); FreeMem(b,s); CloseFile(f); AssignFile(f,'c:\plik.txt'); Rewrite(f,1); BlockWrite(f,b2^,length(b2)); CloseFile(f); end;
ups nie wiem czy to da radę w .net :/
Użytkownik Cyrkiel edytował ten post 23 październik 2006, 17:05
chyba w .NET jest TStringList i w to wrzuć tekst :) a później tylko pętelka i na końcu dodajesz własny ciąg :)
(albo stringReplace znaków #13 i #10) :P
edit i @Cyrkiel: upps... ;)
Użytkownik DJ_ProG edytował ten post 24 październik 2006, 19:31
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
vat s:string; tekst:string; begin repeat Readln(tekst, S); Lista.text:=Lista.Text + '<br>' + S; until S = nil;
ja bym to zrobił tak że jeśli w tekście są entery to bym szukał ciągu znaków \r\n i w odpowiednim miejscu bym dodawał to br
1. sposób:procedure TForm1.Button1Click(Sender: TObject); var s:TStringList; i:integer; begin s:=TStringList.Create; s.LoadFromFile('c:\windows\setuplog.txt'); for i:=0 to s.Count-1 do s[i]:=s[i]+'<br>'; s.SaveToFile('c:\plik.txt'); s.Free; end;
2. sposób:procedure TForm1.Button1Click(Sender: TObject); var f:file; b, b2:pchar; s:integer; begin AssignFile(f,'c:\windows\spslpsrm.log'); Reset(f,1); s:=FileSize(f); GetMem(b,s); BlockRead(f,b^,s); b2:=PChar(StringReplace(b,#13#10,'<br>'#13#10,[rfReplaceAll]) ); FreeMem(b,s); CloseFile(f); AssignFile(f,'c:\plik.txt'); Rewrite(f,1); BlockWrite(f,b2^,length(b2)); CloseFile(f); end;
ups nie wiem czy to da radę w .net :/
Użytkownik Cyrkiel edytował ten post 23 październik 2006, 17:05
chyba w .NET jest TStringList i w to wrzuć tekst :) a później tylko pętelka i na końcu dodajesz własny ciąg :)
(albo stringReplace znaków #13 i #10) :P
edit i @Cyrkiel: upps... ;)
Użytkownik DJ_ProG edytował ten post 24 październik 2006, 19:31