Q&A

  • 문자열에서 원문자 나오면 줄바꾸기...
① 김수나  ② 박경화③ 지오디 ④ 롯데리아
⑤ 이경자⑥ 임진아
⑧ 장진수

위와같은 텍스트문서를 아래와 같이 원문자가 나오면 #13#10를 사용해서 줄을 바꾸려 합니다.
원문자가 2바이트라서 초보입장에서는 쉽지않네요.
또 하나 ⑤ 이경자 하고 ⑧ 장진수는 이미 줄이 바뀌어 있으니 줄을 또 바꾸면 두줄이 벌어지게 됩니다..
그래서 이건 그냥 놔둔 상태에서 옆으로 늘어진 원문자만 줄을 바꾸고 싶어요.

고수님들의 가르침을 기다립니다. 어떤분은 그냥 Pos를 쓰라고만 하는데...자세히 좀...


① 김수나  
② 박경화
③ 지오디
④ 롯데리아
⑤ 이경자
⑥ 임진아
⑧ 장진수
이 게시물을
1  COMMENTS
  • Profile
    민스맘 • 2005.07.13 02:21



    <!--CodeS-->

    const
       wonmunga : Array[0..9] of String = ( '①', '②', '③', '④', '⑤',
                                            '⑥', '⑦', '⑧', '⑨', '⑩' );
    var
       i, j : Integer;
       tmp : String;
    begin
       tmp := memo1.Text;
       for i := 0 to 9 do begin
          j := Pos( wonmunga[i], tmp );

          if ( j > 1 ) and ( ( Copy( memo1.Text, j-1, 1 ) <> #13 ) or
                             ( Copy( memo1.Text, j-1, 1 ) <> #10 ) )then
             Insert( #13#10, tmp, j );
       end;

       memo1.Text := tmp;
    end;

    <!--CodeE-->

    잘 활용해 보세요....
←First Page
295 296 297 298 299 300 301 302 303 304
Last Page→
한델 로그인 하기