проверка ip адреса

[min@y™]

Сообщение от Serge_Bliznykov

функция, которая превращает строчку "1.2.3.4" в "001.002.003.004"

у меня нет, но её можно написать за 3 минуты на коленке, используя мои функции модуля.

17-10-47.png

[Алексей0001]

проверил на файл только с ип адресов, все работает, а так
у меня просто структура файла другая, файл разбиваю по столбцам через табуляцию символом ','

tel, fak, do, ipadres
123,312,32,102.03.123.043
321,31,321,01.123.123.3

спасибо и на этом буду разбирается

[Алексей0001]

Сообщение от min@y™

у меня нет, но её можно написать за 3 минуты на коленке, используя мои функции модуля.

покажите ваш модуль

[min@y™]

Сообщение от Алексей0001

покажите ваш модуль

да вот

[Алексей0001]

подправьте пожалуйста, не получается установить по четвертому столбцу

var ts, t1,tk : TStringList;
  s : string;
  i, j,m : integer;
begin
 if not dlgOpen1.Execute then
    exit;

  ts := TStringList.Create;
  t1 := TStringList.Create;
  t1.Delimiter := '.';
  try
    ts.LoadFromFile(dlgOpen1.FileName);
    strngrd1.RowCount := ts.Count;
    strngrd1.ColCount := 4;
    strngrd1.FixedCols := 0;
    strngrd1.FixedRows := 1;
    strngrd1.ColWidths[0] := 150;
    //устанавливаем разделитель файла
    tk := TStringList.Create;
    tk.delimiter := ',';
    //разбиваем файл
      try
    for i := 0 to ts.Count - 1 do
    begin
      tk.Clear;
      tk.DelimitedText := ts.Strings[i];
      if strngrd1.ColCount < tk.Count then
      strngrd1.ColCount := tk.Count;
      strngrd1.Rows[i].Assign(tk);
    end;
  finally
    // очищаем память
    FreeAndNil(tk);
  end;
    for m := 0 to ts.Count - 1 do begin
    for i := 1 to ts.Count - 1 do begin  //1й столбец
       s := ts.Strings[i];
       if Pos('.',s)>0  then begin
         t1.DelimitedText := s;
         s := '';
         for j := 0 to t1.Count - 1 do begin
            s:= s + Format('%.3d',[StrToIntDef(t1.Strings[j],0)]);
            if j< t1.Count - 1 then s := s + '.'
         end;
       end;
       strngrd1.Cells[0, i] := s
    end;
    end;

  finally
    ts.Free;
    t1.Free
  end;
end;

[min@y™]

Сообщение от Алексей0001

подправьте пожалуйста, не получается установить по четвертому столбцу

Мож хватит хернёй заниматься? Я тебе волшебный модуль дал, какого хрена ты продолжаешь говнокодить?!

[Алексей0001]

вот идет по нужному столбцу, только 1й символ не берет а ставить 000

var ts, t1,tk : TStringList;
  s : string;
  i, j,m : integer;
begin
 if not dlgOpen1.Execute then
    exit;

  ts := TStringList.Create;
  t1 := TStringList.Create;
  t1.Delimiter := '.';
  try
    ts.LoadFromFile(dlgOpen1.FileName);
    strngrd1.RowCount := ts.Count;
    strngrd1.ColCount := 4;
    strngrd1.FixedCols := 0;
    strngrd1.FixedRows := 1;
    strngrd1.ColWidths[3] := 150;
    //устанавливаем разделитель файла
    tk := TStringList.Create;
    tk.delimiter := ',';
    //разбиваем файл
      try
    for i := 0 to ts.Count - 1 do
    begin
      tk.Clear;
      tk.DelimitedText := ts.Strings[i];
      if strngrd1.ColCount < tk.Count then
      strngrd1.ColCount := tk.Count;
      strngrd1.Rows[i].Assign(tk);
    end;
  finally
    // очищаем память
    FreeAndNil(tk);
  end;
   // for m := 1 to ts.Count - 1 do begin
      for i := 1 to ts.Count - 1 do begin  //1й столбец
        s := ts.Strings[i];
        if Pos('.',s)>0  then
          begin
            t1.DelimitedText := s;
            s := '';
              for j := 0 to t1.Count - 1 do
                begin
                  s:= s + Format('%.3d',[StrToIntDef(t1.Strings[j],0)]);
                  if j< t1.Count - 1 then s := s + '.';
                end;
          end;
        strngrd1.Cells[3, i] := s
    end;
    //end;

  finally
    ts.Free;
    t1.Free
  end;
end;

[Алексей0001]

Сообщение от min@y™

Я тебе волшебный модуль дал

там еще разобраться нужно, да и если нужно будет программу на другом компьютере запускать, нужно будет и туда модуль копировать и настраивать

[min@y™]

Сообщение от Алексей0001

там еще разобраться нужно, да и если нужно будет программу на другом компьютере запускать, нужно будет и туда модуль копировать и настраивать

Ты серьёзно?

https://youtu.be/d1vRLfuF-wM

[Алексей0001]

все, проблема решена