antp.be forum

Code: Select all

program CorrComma;
uses
  StringUtils1;
var
  MyField: string;  // contents of a database field
  MyFieldLen: integer; // length of MyField
  Position: integer; // position of a char
  i: integer; //counter
  nFields: integer; // number of fields

begin
  nFields := GetFieldCount();
  if nFields < 1 then exit;
  Position:=0;
  MyField :=' ';
  MyFieldLen := 0;
  
  for i:= 1 to nFields do
  begin
    If GetFieldType(i) = 'ftString' then
    begin
      MyField := trim(GetField(i));
      MyFieldLen := length (MyField);
      // delete comma at the end of string
      while copy(MyField,MyFieldLen,1)=',' do
      begin
        MyField := trim(copy(MyField,1,TLen-1));
        MyFieldLen := length (MyField);
      end;
      // change double comma to single comma
        // without space between commas
      while pos(',,', MyField) >0 do
      begin
        Position:=pos(',,', MyField);
        MyFieldLen := length (MyField);
        MyField := copy(MyField, 1, Position) + copy(MyField, Position+2, MyFieldLen-Position-1);
      end;
        // with space between commas
      while pos(', ,', MyField) >0 do
      begin
        Position:=pos(', ,', MyField);
        MyFieldLen := length (MyField);
        MyField := copy(MyField, 1, Position) + copy(MyField, Position+3, MyFieldLen-Position-2);
      end;
      SetField (i, MyField);
    end;
  end;
end.

Code: Select all

program CorrComma;
var
  nFields: integer; // number of fields
  i: integer; //counter
  MyField: string;  // contents of a database field
  MyFieldLen: integer; // length of MyField

begin
  nFields := GetFieldCount();
  for i := 0 to nFields-1 do
  begin
    if GetFieldType(i) = 'ftString' then
    begin
      MyField := trim(GetField(i));
      MyFieldLen := length(MyField);
      // delete comma and space at the end of string
      while (MyFieldLen > 0) do
      begin
        if (StrGet(MyField, MyFieldLen) = ',') or
          (StrGet(MyField, MyFieldLen) = ' ') then
          MyFieldLen := MyFieldLen - 1
        else
          break;
      end;
      MyField := copy(MyField, 1, MyFieldLen);
      // change double comma to single comma
      // without space between commas
      MyField := StringReplace(MyField, ',,', ',');
      // with space between commas
      MyField := StringReplace(MyField, ', ,', ',');
      SetField (i, MyField);
    end;
  end;
end.