var

Index: Integer;

SourceFile, DestFile: TStringList;

Folder, FileName, Content: String;

begin

SourceFile := TStringList.Create;

DestFile := TStringList.Create;



try

SourceFile.LoadFromFile('a.txt');

for Index := 0 to SourceFile.Count-1 do

begin

Folder := Copy(SourceFile[Index], Pos(#9, SourceFile[Index])-1);

SourceFile[Index] := Copy(SourceFile[Index], Pos(#9, SourceFile[Index])+1);

FileName := Copy(SourceFile[Index], Pos(#9, SourceFile[Index])-1);

Content := Copy(SourceFile[Index], Pos(#9, SourceFile[Index])+1);



ChDir('C:Temp');

if IOResult <> 0 then

ShowMessage('그런 폴더 없는데여???')

else

begin

MkDir(Folder);

if IOResult <> 0 then

ShowMessage(Folder+' 폴더 못만들었는데여???')

else

begin

DestFile.Clear;

DestFile.Add(Content);

DestFile.SaveToFile('C:Temp'+Folder+''+FileName);

end;

end;

end;

finally

SourceFile.Free;

DestFile.Free;

end;

end;



머 이정도 쓰면 되지 않을까여...



테스트 안해봤으니까 에러남 알아서(ㅡㅡ;) 처리하시구...





꿈까먹기 wrote:

> a.txt 라는 text file의 내용은 다음과 같습니다.

>

> //시작

> folder1file1name1

> folder2file2name2

> folder3file3name3

> //끝

>

> 은 tab키로 구분되어 있다는 뜻이구요...

> 이 정보를 가지고 다음과 같은 일을 할려고 합니다.

>

> 1. 지정된 위치에, 예를 들어 C:temp 밑에

> 이름이 각각folder1, folder2, folder3 라는 folder를 생성한다.

>

> 2. 각각의 folder아래에 확장자 없는 이름만

> file1, file2, file3 인 file을 생성한다.

>

> 3. 각각의 file에는 name1, name2, name3라는 문자열이 첫 줄에 들어간다.

>

> 윈도 프로그래밍 시작하는 초보인데요 몇년전에 이런 작업을 밤새도록

> 수작업 한 적이 있거든요... 델파이로 구현해 볼려 그러니까 막막하네요...

> 선배님들의 조언을 부탁드립니다. 행복하세요.