Q&A

  • 오늘 오전까지 해야하는데..급급급!! 숫자를 가려내려면..
예를 들어 files12.db가 있고 Origin1.db가있고 '.'만 빼고 모두 가변입니다.

그런데 '.'의 앞에 문자만 필요하고 숫자를 버려야 하는데 pos로 점앞의 것을 가려낸다하지만 숫자는 어케 버려야할지...

정말 난감합니다..

오늘 오전까지 끝내야하는데...

텔파이 고수님들 부탁드립니당... -.-;;;



이 게시물을
4  COMMENTS
  • Profile
    김양우 • 2001.05.09 23:45
    이렇게 하면 될것 같은데 ....





    function uf_get_number_leng(const ps_str:string):integer;

    var i, li_leng :integer;

    begin

    Result := 0;

    for i := Pos('.', ps_str) - 1 downto 1 do

    begin

    if (ps_str[i] >= '0') and (ps_str[i] <= '9') then

    begin

    inc(Result);

    end else

    begin

    exit

    end;

    end;

    end;









    델초보 -.-;; wrote:

    > 예를 들어 files12.db가 있고 Origin1.db가있고 '.'만 빼고 모두 가변입니다.

    > 그런데 '.'의 앞에 문자만 필요하고 숫자를 버려야 하는데 pos로 점앞의 것을 가려낸다하지만 숫자는 어케 버려야할지...

    > 정말 난감합니다..

    > 오늘 오전까지 끝내야하는데...

    > 텔파이 고수님들 부탁드립니당... -.-;;;

    >

  • Profile
    전진운 • 2001.05.09 19:47
    이렇게면 되지 않을까요

    확인은 해보지 않았음^^;

    function OnlyCharString(aSt: string):String;

    var

    I: Integer;

    st: string;

    begin

    st:='';

    for I:= 1 to Length(aSt) do

    begin

    if (aSt[I] >= #$41) and (aSt[I] <= #$7A) then

    st:= st+ aSt[I];

    end;

    OnlyCharString:= st;

    end;



    델초보 -.-;; wrote:

    > 예를 들어 files12.db가 있고 Origin1.db가있고 '.'만 빼고 모두 가변입니다.

    > 그런데 '.'의 앞에 문자만 필요하고 숫자를 버려야 하는데 pos로 점앞의 것을 가려낸다하지만 숫자는 어케 버려야할지...

    > 정말 난감합니다..

    > 오늘 오전까지 끝내야하는데...

    > 텔파이 고수님들 부탁드립니당... -.-;;;

    >

  • Profile
    델초보 -.-;; • 2001.05.09 20:07
    답변 정말 감사했습니당 ^.^;;

    그런데.. 제가 넘 허접이라 질문을 잘못했습니당 -.-;;

    숫자를 버려야 하는게 아니라 그숫자의 길이를 가져와야 합나당..

    숫자의 길이가 한자리일수도 있고 있고 2자리 일수도 있습니당..

    점앞의 자리수가 일정하지 않은 숫자의 길이를 어케 가져와야 할지..

    고수님들 부탁드립나다 -.-;;;



    전진운 wrote:

    > 이렇게면 되지 않을까요

    > 확인은 해보지 않았음^^;

    > function OnlyCharString(aSt: string):String;

    > var

    > I: Integer;

    > st: string;

    > begin

    > st:='';

    > for I:= 1 to Length(aSt) do

    > begin

    > if (aSt[I] >= #$41) and (aSt[I] <= #$7A) then

    > st:= st+ aSt[I];

    > end;

    > OnlyCharString:= st;

    > end;

    >

    > 델초보 -.-;; wrote:

    > > 예를 들어 files12.db가 있고 Origin1.db가있고 '.'만 빼고 모두 가변입니다.

    > > 그런데 '.'의 앞에 문자만 필요하고 숫자를 버려야 하는데 pos로 점앞의 것을 가려낸다하지만 숫자는 어케 버려야할지...

    > > 정말 난감합니다..

    > > 오늘 오전까지 끝내야하는데...

    > > 텔파이 고수님들 부탁드립니당... -.-;;;

    > >

  • Profile
    바람개비 • 2001.05.10 00:01
    파일이름이 문자+숫자 로만 이루져있다고 하면

    그리고 숫자가 오면 다음에는 다른문자가 오지 않는다고 하면

    (file0001.xx, f0021.xx 의 형식만 있다. file0123a.xx 의 형식은 없다고 한다.)



    1. 아래의 소스를 응용, 첫번째로 숫자가 나오는 위치를 찾습니다.

    물론 대상문자열은 '.' 이하를 버란 문자열이 되겠지요.

    2. 위치가 찾아진다면 거기서부터 문자열끝까지 복사해낸다.



    바라미~



    델초보 -.-;; wrote:

    > 답변 정말 감사했습니당 ^.^;;

    > 그런데.. 제가 넘 허접이라 질문을 잘못했습니당 -.-;;

    > 숫자를 버려야 하는게 아니라 그숫자의 길이를 가져와야 합나당..

    > 숫자의 길이가 한자리일수도 있고 있고 2자리 일수도 있습니당..

    > 점앞의 자리수가 일정하지 않은 숫자의 길이를 어케 가져와야 할지..

    > 고수님들 부탁드립나다 -.-;;;

    >

    > 전진운 wrote:

    > > 이렇게면 되지 않을까요

    > > 확인은 해보지 않았음^^;

    > > function OnlyCharString(aSt: string):String;

    > > var

    > > I: Integer;

    > > st: string;

    > > begin

    > > st:='';

    > > for I:= 1 to Length(aSt) do

    > > begin

    > > if (aSt[I] >= #$41) and (aSt[I] <= #$7A) then

    > > st:= st+ aSt[I];

    > > end;

    > > OnlyCharString:= st;

    > > end;

    > >

    > > 델초보 -.-;; wrote:

    > > > 예를 들어 files12.db가 있고 Origin1.db가있고 '.'만 빼고 모두 가변입니다.

    > > > 그런데 '.'의 앞에 문자만 필요하고 숫자를 버려야 하는데 pos로 점앞의 것을 가려낸다하지만 숫자는 어케 버려야할지...

    > > > 정말 난감합니다..

    > > > 오늘 오전까지 끝내야하는데...

    > > > 텔파이 고수님들 부탁드립니당... -.-;;;

    > > >

←First Page
1793 1794 1795 1796 1797 1798 1799 1800 1801 1802
Last Page→
한델 로그인 하기