Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - My Releases (https://forum.antichat.xyz/showthread.php?t=31787)

Выкладываю проги может кому пригодятся:

Universal DUMP'er
Думаю не раз возникала ситуация когда надо из дамба БД выдрать например 2 поля (например: login;pass). Вот собственно прога для этого и предназначена.
Выбираем дамб базы обязательно, что бы первая строчка была началом вставки данных. Кнопка "Test" показывает значения далее выбираем нужные и нажимаем dump.

FileSorter
Простая прога для сортировки файлов.
Указываем файл нажимаем Sort.
Также прога может удалять повторяющиеся элементы.

Hex2Ascii&Ascii2Hex
Как понятно из названия прога может преобразовывать из hex->Ascii и наоборот.
Обе проги писал давно и только для себя по этому на интерфейс просьба внимания не обращать...
Исходники прилагаются...

Бинарники:

Universal DUMP'er - 162.4 Кб
FileSorter - 160.8 Кб
Hex2Ascii&Ascii2Hex - 158.3 Кб

Исходники:

FileSorter - 8.8 Кб
Universal DUMP'er - 10.4 Кб
Hex2Ascii&Ascii2Hex - 8.2 Кб

flipper если сделаеш Universal DUMP'er чтобы мог не 2 а хотябы 5-6 полей выдерать,
то цены ему небудет!

А так + от меня.

Цитата:

Сообщение от D=P=CH= MOD=

flipper если сделаеш Universal DUMP'er чтобы мог не 2 а хотябы 5-6 полей выдерать,
то цены ему небудет!

Обновил до следующей версии, что нового:
Неограниченное количество столбцов для дампа в файл (номера указываются через ":").
Можно выбирать разделитель при чтении и записи дама.

Совет если нужно записать столбцы в определенном порядке, нужно выбрать в качестве разделителя при записи не ":", а ";" и расширение сменить на "csv" после чего можно будет отрыть в Exel'e и там уже делать все что угодно.

Классная прога держи +

Перезалеити плиззз нельзя скачать а прога очень нужна

Цитата:

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

Перезалеити плиззз нельзя скачать а прога очень нужна

Все перезалил...

Сайта не существует :)
Сам юзаю это

Теперь увлекся перлом. Все делается намного проще:
Dump'er:

Код:

#!/usr/bin/perl -w

if ($ARGV[0] eq "") {print "Example: perl dump.pl Clients.sql"; exit;}

open (f1,$ARGV[0]) || die $!;

open (f2,">log") ||die $!;

if ($ARGV[1] eq "") {

  $s=<f1>;

  $s=~s/\'//g;

  @temp=split(",",$s);

  for ($i=0;$i<$#temp;$i++){

     print "$i-$temp[$i]\n"; } #for

   print "\nExample: perl dump.pl Clients.sql 4-6-15-20";

   exit;

  } #if

@temp = split("-",$ARGV[1]);

while (<f1>) {s/\'//g; #s/\s\'//g;

  (@temp2)=(split(",",$_))[@temp];

   print f2 join(":",@temp2). "\n";

 }  #while

close(f1);

close(f2);

Запускаем: "perl dump.pl Clients.sql 4-6-15-20"
Clients.sql - имя сортируемого файла, 4-6-15-20 номера колонок через "-" (узнать можно запустив только "perl dump.pl Clients.sql ").

Сортировка файла с удалением повторяющихся элементов:

Код:

#!/usr/bin/perl -w

if ($ARGV[0] eq "") {print 'sort.pl filename'; exit;}

open (f1,$ARGV[0]) || die $!;

open (f3,">sorted") ||die $!;

%seen=();

@uniq=grep {! $seen{$_} ++ } <f1>;

print f3 sort @uniq;

close(f1);

close(f3);

Запускаем: "sort.pl filename"