Создание легкой программы

[alex0097]

Здравствуйте ув.Программисты.
Прошу вас помочь в написании программы очень простой. нужно чтобы файл с UIN;PASS разбивал вот так

[UIN]
uin1=
uin2 итд
[PASS]
pass1=
pass2= и тд


Пример:
11111;qqqqqq
22222;wwww

получаем

[UIN]
uin1=11111
uin2=22222
[PASS]
pass1=qqqqqq
pass2=wwww

Кто сможет помочь и реализовать? конечно же за $$$$.

[ex.cluz]

Да тут деньги-то брать не за что...
Искать знак ';' в строках можно во вложенном цикле (до этого знака - uin, после - pass). Вложен этот цикл будет в цикл перебора строк.
Все просто.

[alex0097]

можешь написать. пожалуйста? и сюда выложить. отблагодарю.=)

[Stilet]

Все еще проще.
Это INI файл. достаточно методами ReadString читать нужный ключ и все.
http://www.programmersforum.ru/showthread.php?t=14551
В хелпе Делфи даже есть пример

[alex0097]

я так уж сильно с делфи не дружу. я ток на 2ой курс перешел. мы ток начали проходить делфи.

очень буду благодарен всем кто поможет...

[Stilet]

Вот пример консольной работы:

program Project1;

{$APPTYPE CONSOLE}

uses  inifiles,
  SysUtils;
var i:TIniFile;s:string;k,e:integer;f:text;
begin
 i:=TIniFile.Create('c:\temp\i.ini'); // Создаем файл
 assingfile(f,'text.txt');reset;
 k:=1;                                // Это типа счетчика цикла
 while not eof(f) do begin
  readln(f,s)                   // Берем строку
  e:=pos(';',s);                       // выясняем где деление на две части
  i.WriteString('UIN','UIN'+IntToStr(k),copy(s,1,e-1)); // Пишем UIN
  i.WriteString('PASS','PASS'+IntToStr(k),copy(s,e+1,length(s))); // Пишем PASS
  inc(k);
 end;
 i:=nil; // Закрываем файл
  { TODO -oUser -cConsole Main : Insert code here }
end.

Смысл ясен?

[KoBRaAndrey]

var
ini:tinifile;
i:integer;
begin
ini:=tinifile.create('c:\xz.ini');
for I := 0 to memo1.Lines.count - 1 do begin
  ini.WriteString('UIN','uin'+inttostr(i),copy(memo1.lines[i],0,pos(';',memo1.lines[i])-1));
  ini.WriteString('PASS','pass'+inttostr(i),copy(memo1.lines[i],pos(';',memo1.lines[i])+1,length(memo1.Lines[i])-pos(';',memo1.lines[i])));
  end;
ini.Free;

[alex0097]

честно нет не понел. блин. я видно настолько **пой
кто сделает прогу эту с интерфейсом любым. тому заплочу

[zumm]

ну давай я сделаю, за 1 долар стучи в асю

[stlcrash]

Качай и спасибку тыкай, там полностью рабочая программа

procedure TForm1.Button1Click(Sender: TObject);
var
i,p:integer;
F: TIniFile;
s1,s2:string;
begin
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'finish.ini');
  for i :=0  to memo1.lines.count-1 do
    begin
      p:=Pos(';', memo1.Lines[i]);
      s1:=memo1.Lines[i];
      s2:=memo1.Lines[i];
      Delete(s1,p,Length(s1)-p+1);
      Delete(s2,1,Length(s1)+1);
      F.WriteString('UIN', 'uin'+IntToStr(i+1), s1);
      F.WriteString('PASS', 'pass'+IntToStr(i+1), s2);
    end;
F.Free;
end;