제가 짠거는 아니구... 기존 프로그램을 수정하는 일인데여...

다량의 동일형식의 자료를 SAM파일(우편번호, 주소, 성명, 전화번호 등)로 읽어들여서 존재하지 않는 우편번호일경우에 에러메세지를 보여주고 수정할 수 있는 에디트 창을 띄워서 자료를 수정해서 다시 등록시키는 프로그램을 만들려고 합니다...

SAM파일 내용은

123-456 서울시 송파구 어쩌구저쩌구 보낸이 123-4567

520-456 부산시 송파구 어쩌구저쩌구 보낸이 123-4567

820-456 대전시 송파구 어쩌구저쩌구 보낸이 123-4567

410-456 울산시 송파구 어쩌구저쩌구 보낸이 123-4567

....

....

....

....



이렇게 만들어져 있구여... 없는우편번호를 검색해서 오류가있는 문자열(우편번호, 주소, 보내는사람이름, 전화번호)만을 뽑아내서 error.sam이라는 파일에 기록하고...

나머지 오류가 없는 파일들은 입력시킨 후 error.sam파일을 오픈해서 수정 후 다시 입력할 수 있도록 구현하고자 합니다.

혼자서 끙끙거리다가 여러 고수분들께 도움을 요청합니다...

도와주세여... T_T 혹시 질문내용이 이해가 안가시는분들은 리플달아주세여...

좀더 자세하게 설명해드리겠슴다...



function Tpoftj1d0.funcConfirmZcode:boolean;

var stemp1,stemp2,stemp3:string;

i:integer;

fh : integer;

BackupStrings2 : TStringList;

sTmp :String;

begin

BackupStrings2 := TStringList.Create;



for i := 1 to SG.RowCount - 1 do begin

stemp1 := copy(SG.Cells[izcode,i],1,3) + copy(SG.Cells[izcode,i],5,3);

if funcGetAddr(stemp1) = '' then

begin

SG.Row := i;

SG.Col := izcode;

if Application.MessageBox('해당하는 우편번호를 찾을 수 없습니다.'

+ #13#10 + '편집 후 다시 작업 해 주십시오', '오류', MB_OK)=id_ok then

begin

BackupStrings2.Clear;

sTmp := SG.Cells[izcode,i] + ' ' + SG.Cells[2,i] + ' ' + SG.Cells[3,i]

+ ' ' + SG.Cells[4,i] + ' ' + SG.Cells[5,i] + ' ' + SG.Cells[6,i]

+ ' ' + SG.Cells[7,i];

BackupStrings2.Add(sTmp);



BackupStrings2.SaveToFile('c:piserror.sam');

WinExec('C:WINDOWSNOTEPAD.EXE C:piserror.sam', SW_SHOWNORMAL);

end;

result := False;

fh := filecreate('c:piserror.sam');

result := False;

exit;

end;