Q&A
- txt화일에 자리수를 지정해서 입력하기.....
Edit에 입력된 자리수를 알아내서 txt화일에 저장하는겁니다.
단순히 입력된것만 넣는 다면 문제가 안되는데
17자리 안에 입력해야하거든여! 예로.. Edit에 001이라고 입력됐다면
'001 '을 txt에 입력하고 나머지 14자리를 공백으로 넣어야합니다.
그런 후에 18번째 자리에는 다른 Edit에서 입력받은 001을 5자리에 맞춰서
'001 '넣는 것입니다.
1번Edit 에 001을 입력하고 1번 Edit에 001이 입력되었다면 txt에 입력하기를...
001 001 이렇게 입력되는 겁니다.
입력된 자리수는 Length(Edit1.Text);이렇게 하면 되겠지만 17자리를 계산하여
001을 넣구 나머지 자리수를 계산하여 14자리를 공백으로 넣는 것이 문제입니다.
이러한 것들이 계속해서 반복된다면 어떻게 하면 될까여? 간단하게 할수 있는
방법을 찾아봤는데... 공백을 매번 ' '을 계산해서 넣기가 문제더라구여!
입력자리수가 매번 바뀔수도 있으니까여!
우선 스페이스를 함수처리 변수처리해서 입력하면 될거같기도 한데...직접해봤더니.. 100번 라인을 바꿔가면서 입력하려니 어찌해야할지 모르겠더라구여!
단순히 입력된것만 넣는 다면 문제가 안되는데
17자리 안에 입력해야하거든여! 예로.. Edit에 001이라고 입력됐다면
'001 '을 txt에 입력하고 나머지 14자리를 공백으로 넣어야합니다.
그런 후에 18번째 자리에는 다른 Edit에서 입력받은 001을 5자리에 맞춰서
'001 '넣는 것입니다.
1번Edit 에 001을 입력하고 1번 Edit에 001이 입력되었다면 txt에 입력하기를...
001 001 이렇게 입력되는 겁니다.
입력된 자리수는 Length(Edit1.Text);이렇게 하면 되겠지만 17자리를 계산하여
001을 넣구 나머지 자리수를 계산하여 14자리를 공백으로 넣는 것이 문제입니다.
이러한 것들이 계속해서 반복된다면 어떻게 하면 될까여? 간단하게 할수 있는
방법을 찾아봤는데... 공백을 매번 ' '을 계산해서 넣기가 문제더라구여!
입력자리수가 매번 바뀔수도 있으니까여!
우선 스페이스를 함수처리 변수처리해서 입력하면 될거같기도 한데...직접해봤더니.. 100번 라인을 바꿔가면서 입력하려니 어찌해야할지 모르겠더라구여!
5
COMMENTS
-
-
코드는 간단한거 같은데.. 무슨의미인지 잘모르겠어여!
보충 설명을 해주시면 고맙겠는데..... ^^;
참고로... Edit1.Text가 12345였으면 txt에 12345적고 12자리가 공백으로 나오고 그리고 Edit2.Text가 1234567였으면 txt에 1234567적고 10자리 공백으로 나오고.. 그리고 마지막에 VATBIL을 적어주는 겁니다. VATBIL은 입력받지않고
바로 코딩으로 적어두 되구여!
---------------------------------------------------------------
12345 1234567 VATBIL
----------------------------------------------------------------
12345와 1234567의 사이는 12자리의 공백이구여! 기본은 17자리안에
Edit1의 내용과 공백으로 총 17자리를 만드는겁니다.Edit2도 마찬가지구여!
-
var LineString,TMP:string; outf: TextFile;
begin
TMP:= 'c:test.txt'; //저장될 txt파일명
AssignFile(outf, TMP);
Rewrite(outf);
LineString:=format('%-17s', [edit1.text]) + format('%-17s', [edit2.text]) + 'VATBIL';
writeln(outf,LineString);
CloseFile(Outf);
end;
edit에서 입력받은값을 포함해 17자리를 채우고 왼쪽정렬한다는 말입니다.
('-' 부호가 왼쪽정렬)
걍 해당 소스 직접 실행해 보시면 결과가 나오겠지요...
보다 자세한 내용을 원하시면 델파이 도움말 색인에서 "Format strings" 를 찾아보시길...
감자야~ 병역특례는 끝났냐?
-
헤에~~~~~
들켜부러따~~~
아이고 ~~~
아직 2년5개월이나남았어요..
보고싶어요 이대리님 ~~
모여야죠 ~ 헤헤.
저 소스기억 나세요 예전 회사서.. 그모냐.. EDI 샘파일 맹글때 ..
ㅇㅅㅇ;;; ㅎㅎㅎ..
-
(NOTICE) You must be logged in to comment on this post.
-
- 윤도상
- 2003.06.14 18:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 박상철
- 2003.06.14 10:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 론즈
- 2003.06.14 10:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 론즈
- 2003.06.14 10:36
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 장의성
- •
- 2003.06.14 03:23
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_BaSTaD•2003.06.14 03:31
-
- 이정택
- •
- 2003.06.14 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2003.06.14 02:28안능하세요 언제나 초보 바보감자입니다. 일단 쿼리 문같은 경우에는 대부분 쿼리를 확인 해보면 알수있는...
-
- 김진영
- •
- 2003.06.14 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
Fisher•2003.06.14 19:47client에서는 알 수 없습니다. Application Layer에 구현해야합니다.
-
- 이정택
- •
- 2003.06.14 01:36
- 4 COMMENTS
- /
- 0 LIKES
-
바보감자•2003.06.14 01:39안녕하세요 언제나 초보 바보감자입니다 뒤에 확장자를 빼보세요 ^^ 알리아스 잘 잡으셨으면 그거 없어...
-
이정택•2003.06.14 01:43file Or Directory Does Not exist. c:IMSI.DB c:IMSI.DBF c:IMSI.TXT ... 이런 에러가 나네요... ...
-
바보감자•2003.06.14 01:50그거 용량 별로 안되니까 데이타베이스 까장 압축 해서 올리세요 보고 알려드릴께요
-
이정택•2003.06.14 02:12
-
- 박근옥
- •
- 2003.06.14 01:29
- 3 COMMENTS
- /
- 0 LIKES
-
오병주•2003.06.14 01:35
-
박근옥•2003.06.14 01:50좀더 구체적으로 말씀드리자면 다음과 같습니다. Application 을 실행하면 기본 ...
-
오병주•2003.06.14 21:46dbedit1 : Field 'Emprname' not found 에러 메세지를 말그대로 풀이하면 Emprname 필드가 없다고 하는...
-
- 정한구
- •
- 2003.06.14 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
방재웅•2003.06.18 00:49델파이3라면 BDE와 ODBC를 사용하셨을 텐데 너무 오래돼서 기억이 잘 안나지만 혹시나 첨부한 그림부분...
-
- 강순복
- •
- 2003.06.13 23:12
- 4 COMMENTS
- /
- 0 LIKES
-
박영목•2003.06.14 00:53제가 답변을 드릴 자격도 없는데.... 제 나름대로 말씀 드리겠습니다. 다른 언어를 잘 접하지 않으신 것...
-
바보감자•2003.06.14 00:41안녕하세요 언제나 초보 바보감자입니다. 저는 C빌더는 안써보고 VC와 델파이를 사용합니다만.. 그냥 ...
-
박영목•2003.06.14 00:55답변쓰고 오리고 나니까? 감자님이 먼저 올리셨네... ㅋㅋㅋㅋ ..감자님의 아래의 말씀 .... 아주 동감...
-
바보감자•2003.06.14 01:36냉무 몰라영.? ㅎㅎㅎ 클릭하셔서 수고 ~
-
- 신민수
- 2003.06.13 23:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승근
- •
- 2003.06.13 21:47
- 2 COMMENTS
- /
- 0 LIKES
-
바보감자•2003.06.14 00:32안능 하세요 언제나 초보 바보감자입니당. quotedstr() 이함수 아시는지요..? pcode = "'+edit1.text+'...
-
^ㅡ^•2003.06.13 22:42//님이 쓰신 문장은 copy떠서 올려보세요 앞뒤가 없으니까 일단 어떤건지 모르겠음.... 즐코하세요
-
- 첨시작델
- •
- 2003.06.13 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
약초꾼•2003.06.13 20:51
-
- 궁금이
- •
- 2003.06.13 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2003.06.14 01:00안녕하세요 언제나 초보 바보감자입니다. 제가 확인을 안해봐서 잘몰르겠지만. 제가 테스트는 안해...
-
- 김정은
- •
- 2003.06.13 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2003.06.14 00:45안녕하세요 언제나 초보 바보감자입니다. 그것보단.. 그냥 에러내용을 올리시는게 답변받으시는데 더욱 ...
-
-
바보감자•2003.06.14 00:38안녕하세요 언제나 초보 바보감자입니다. 네 가능합니다. 알리어스 같은경우 레지스트리에서 설정...
-
-
- 오병준
- •
- 2003.06.13 18:33
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2003.06.14 01:10안녕하세요 언제나 초보 바보감자입니다 다시한펀 한델이나 델마당 델코의 고수님들께 감사하며.. 위의...
-
- 최은하
- •
- 2003.06.13 09:54
- 5 COMMENTS
- /
- 0 LIKES
Edit에 입력된 자리수를 알아내서 txt화일에 저장하는겁니다. 단순히 입력된것만 넣는 다면 문제가 안되는데 17자리 안에 입력해야하거든여! 예로.. Edit에 001이라고 입력됐다면 '001 '을 txt에 입력하고 나머지 14자리를 공백으로 넣어...-
바보감자•2003.06.13 20:40안능하세요 언제나 초보 바보감자입니다. format('%5s', [edit1.text]); edit2.text := format('%-11s'...
-
최은하•2003.06.13 22:38코드는 간단한거 같은데.. 무슨의미인지 잘모르겠어여! 보충 설명을 해주시면 고맙겠는데..... ^^; ...
-
이창영•2003.06.13 23:57var LineString,TMP:string; outf: TextFile; begin TMP:= 'c:test....
-
바보감자•2003.06.14 00:17헤에~~~~~ 들켜부러따~~~ 아이고 ~~~ 아직 2년5개월이나남았어요.. 보고싶어요 이대리님 ~~ 모여야죠 ...
-
최은하•2003.06.14 03:48
-
- 이승근
- 2003.06.13 06:49
- 0 COMMENTS
- /
- 0 LIKES
format('%5s', [edit1.text]);
edit2.text := format('%-11s', [edit1.text]);
-가 왼쪽정렬이였나 그럴껍니다
^^.
참고하세요~~~~~
그럼 즐푸 하세용 ~