Q&A

  • 일정한 길이 일정하지 않은 위치에 있는 값 가져오는 방법 좀..
주소 데이터가 있습니다..
그런데..문제는..주소가 앞에 잇고 뒤에 우편번호가 바로 붙어서 있습니다..
전체 길이는 같구요 남는 공간은 다 빈칸으로 채워져 있습니다..
앞에 주소의 길이가 달라서 우편번호가..중간에 있다.뒤에 있다가..그러는데..
우편번호만 가져올수 있는지요?

예를들어
'서울 강남구123456                                ';
'대전 서구 월평1동456789                         ';
'부산345678                                          ';

이런식의 데이터입니다. 뒤에 6자리 숫자가 우편번호고요..
우편번호만 가져올수 있는 방법 좀 알려주세요..ㅠ.ㅠ
이 게시물을
2  COMMENTS
  • Profile
    미친개 • 2003.01.15 01:28
    Trim함수를 사용하면 될것 같군요...

    sStr := '서울 강남구123456                                ';
    sStr := Trim(sStr);
    sPost := Copy( sStr,Length(sStr)-5,  6 );

    이러면 될겁니다.......즐코하세요


  • Profile
    미소나눔 • 2003.01.13 20:27
    다행이 우편번호가 맨 마지막이네여.. 6자리만 복사..

    procedure TForm1.Button1Click(Sender: TObject);
    var
        Fp : TextFile;
        ReadLine : String;
    begin
        if not OpenDialog1.Execute then Exit;

        AssignFile(Fp,  OpenDialog1.FileName);
        Reset(Fp);

        While not Eof(Fp) do begin
            Readln(Fp, ReadLine);
            Memo1.Lines.Add(RightStr(Trim(ReadLine), 6));
        end;

        CloseFile(Fp);
    end;

    즐푸..~
←First Page
766 767 768 769 770 771 772 773 774 775
Last Page→
한델 로그인 하기