Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

how to break column in my text file ?

Posted on 2009-04-02
3
190 Views
Last Modified: 2012-05-06
I have a text file very large, the problem is that my text has one line with a very long column.

I want to break column to another line after 80 caracter.

How can I do this?

Thanks
0
Comment
Question by:hidrau
3 Comments
 
LVL 45

Expert Comment

by:aikimark
ID: 24051857
Is this a delimited (CSV, tab, other) text file?

How are you defining a 'column'?

Where do you need to place the results of your 'broke' column?

=====================
The general algorithm is to iterate through the length of the string, copying the chunks to another data structure, such as a TStringList.  With each iteration, you find the break point by starting 80 characters beyond your current position and inspect the characters 'backwards' (79,78,77, etc.) until you reach a word delimiter.  A word delimiter will typically be a space or hyphen.
0
 
LVL 13

Accepted Solution

by:
ThievingSix earned 500 total points
ID: 24051951
I used this code for wrapping text to 55 characters in a text file. Might be useful to you.
function TrimSpaces(Text: String): String;
begin
  Result := Text;
  While Result[1] = #32 Do Delete(Result,1,1);
  While Result[Length(Result)] = #32 Do Delete(Result,Length(Result),1);
end;
 
function StrCharPos(Text: PChar; Chars: TSysCharSet): PChar;
begin
  Result := Text;
  while Result^ <> #0 do
  begin
    if Result^ in Chars then
      Break;
    Inc(Result);
  end;
  if Result^ = #0 then
    Result := nil;
end;
 
function WrapText(const Line, BreakStr: string; BreakChars: TSysCharSet;
  MaxCol: Integer): string;
var
  P, PNewLine, PBreak: PChar;
begin
  Result := '';
  P := PChar(Line);
  PNewLine := P;
  PBreak := StrCharPos(P, BreakChars);
  while PBreak <> nil do
  begin
    if (PBreak - PNewLine + 1) > MaxCol then
    begin
      Result := Result + BreakStr;
      PNewLine := P;
    end;
    while P <= PBreak do
    begin
      Result := Result + P^;
      Inc(P);
    end;
    PBreak := StrCharPos(PBreak + 1, BreakChars);
  end;
  if StrEnd(P) - PNewLine > MaxCol then
    Result := Result + BreakStr;
  while P^ <> #0 do
  begin
    Result := Result + P^;
    Inc(P);
  end;
end;
 
procedure TfrmMain.btnFormatClick(Sender: TObject);
var
  Buffer : String;
  StringList : TStringList;
  FormatList : TStringList;
  I, J : Integer;
begin
  StringList := TStringList.Create;
  Try
    Buffer := mData.Text;
    While Pos(#13#10#13#10,Buffer) > 0 Do
      begin
      StringList.Add(Copy(Buffer,1,Pos(#13#10#13#10,Buffer) - 1));
      Buffer := Copy(Buffer,Pos(#13#10#13#10,Buffer) + 4);
    end;
    StringList.Add(Buffer);
    FormatList := TStringList.Create;
    Try
      For I := 0 To StringList.Count - 1 Do
        begin
        FormatList.Text := StringList.Strings[I];
        For J := 0 To FormatList.Count - 1 Do
          begin
          If Length(FormatList.Strings[J]) > 55 Then
            begin
            FormatList.Text := StringReplace(FormatList.Text,#13#10,#32,[rfReplaceAll]);
            FormatList.Text := WrapText(FormatList.Text,#13#10,[#32],55);
            Break;
          end;
        end;
        For J := 0 To FormatList.Count - 1 Do
          begin
          FormatList.Strings[J] := Trim(FormatList.Strings[J]);
        end;
        StringList.Strings[I] := FormatList.Text;
      end;
    Finally
      FreeAndNil(FormatList);
    end;
  mData.Text := StringReplace(StringList.Text,#13,'',[rfReplaceAll]);
  Finally
    StringList.Free;
  end;
end;

Open in new window

0
 
LVL 1

Author Closing Comment

by:hidrau
ID: 31565845
thanks very much
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

829 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question