델미치미 wrote:

> str:='c:temp11.doc 45.3kb 01-08-16' 요렇게 생긴 문자열 중에서

> c:temp11.doc 만 가져올수는 없을 까요..

> copy(str,1,14)뭐 이렇게 하면되겠지만, 화일이름의 길이가 항상 고정된것이

> 아니기 때문에 이렇게는 할수 없고.. 뭐좋은 방법이 없을까요?

> 고수님들 답변좀 해주세요..

> 오전 내내 생각해봤는데 ....pos하고 copy명령을 잘생각 해보면 될것같은데....

> 가르쳐 주시면 고맙겠습니다.

> 즐거운 프로그래밍 하세요....

/////////////////////////////////////////////////

아래처럼한번해보세요,

-----------------------------------------------------

str := Edit1.Text;

Pstr := ExtractFilePath(str);

Fstr := ExtractFileName(str);

Fstr := copy(Fstr,1,Pos('.',Fstr)+3);

Edit2.Text := Pstr + Fstr;

----------------------------------------

조금줄인것입니다

Fstr := ExtractFileName(str);

str := ExtractFilePath(str) + copy(Fstr,1,Pos('.',Fstr)+3);

안녕하세요. 최용일입니다.



뭔가 규칙이 있다면 어렵지 않을거 같은데요...



아래 스트링은 첨에 ' 다음부터 첫번째 스페이스부분까지 짜르면 될거 같은데...



이러한 규칙을 잘 찾아보세요...



^^ 항상 즐코하세요...



델미치미 wrote:

> str:='c:temp11.doc 45.3kb 01-08-16' 요렇게 생긴 문자열 중에서

> c:temp11.doc 만 가져올수는 없을 까요..

> copy(str,1,14)뭐 이렇게 하면되겠지만, 화일이름의 길이가 항상 고정된것이

> 아니기 때문에 이렇게는 할수 없고.. 뭐좋은 방법이 없을까요?

> 고수님들 답변좀 해주세요..

> 오전 내내 생각해봤는데 ....pos하고 copy명령을 잘생각 해보면 될것같은데....

> 가르쳐 주시면 고맙겠습니다.

> 즐거운 프로그래밍 하세요....

yo`



우선 ExtractFile*함수군을 참고하시구요!!



pos와 copy문을 활용해서 구할수도 있습니다.



var

str,fn: string;

ni,npos: integer;

begin



str:= edit1.text;



for ni:=0 to length(str)-1 do begin

if str[ni] = ' ' then begin

npos:= ni;

break;

end;

end;



fn:= copy(str,1,npos);

showmessage(fn);





허접으로 함 만들어봤슴돠...참고만 하시길....



그럼...휘리리릭~



bLue bLood.



델미치미 wrote:

> str:='c:temp11.doc 45.3kb 01-08-16' 요렇게 생긴 문자열 중에서

> c:temp11.doc 만 가져올수는 없을 까요..

> copy(str,1,14)뭐 이렇게 하면되겠지만, 화일이름의 길이가 항상 고정된것이

> 아니기 때문에 이렇게는 할수 없고.. 뭐좋은 방법이 없을까요?

> 고수님들 답변좀 해주세요..

> 오전 내내 생각해봤는데 ....pos하고 copy명령을 잘생각 해보면 될것같은데....

> 가르쳐 주시면 고맙겠습니다.

> 즐거운 프로그래밍 하세요....