Q&A
HOME
Tips & Tech
Q&A
Discuss
Download
자유게시판
홍보 / 광고
구인 / 구직
LOGIN
회원가입
INI 파일의 내용에서 특정 키워드만 변경하는방법
안녕하세요..
델피 초보 삐홍 입니다..
여러 고수님의 가르침을 받고자 합니다...
제가 봉착한 문제는요..
INI파일을 엑세스를 해서 거기서 특정 단어를 색출, 다른 문자로 변경하는
일입니다. 뭐 INI든 TXT든 관계는 없는데요...
워낙에 초보라서 접근 방법을 모르고 있습니다.
여러 고수님들의 고견을 듣고 싶습니다..^^;
그럼...좋은 하루 되세용..
1
COMMENTS
홍세비
•
2000.12.05 10:12
삐홍 wrote:
> 안녕하세요..
> 델피 초보 삐홍 입니다..
> 여러 고수님의 가르침을 받고자 합니다...
> 제가 봉착한 문제는요..
> INI파일을 엑세스를 해서 거기서 특정 단어를 색출, 다른 문자로 변경하는
> 일입니다. 뭐 INI든 TXT든 관계는 없는데요...
> 워낙에 초보라서 접근 방법을 모르고 있습니다.
> 여러 고수님들의 고견을 듣고 싶습니다..^^;
> 그럼...좋은 하루 되세용..
안녕하세요. 홍세빕니다.
흠..아래 함수를 이용해 보세염..간단하게 변환할수 있습니당
procedure replace(var source: string; find, repl: string);
var
ind : integer;
next : string;
begin
ind := pos(find, source);
if ind > 0 then begin
next := copy(source, ind+length(find), 10000);
replace(next, find, repl);
source := copy(source, 1, ind-1) + repl + next;
end;
end;
function LoadFile(fil: string): string;
var
list : TStringList;
begin
try
list := TStringList.Create;
list.LoadFromFile(fil);
result := list.Text;
list.Free;
except
Exit;
end;
end;
.............
var
fn : string;
begin
fn := LoadFile('INI 파일');
replace(fn, '찾는문자열','바꿀문자열');
end;
// 물론 다시 파일로 저장해 줘야하구요...
// 그리고 엔터처리를 해주셔야 하겠죠. 이부분은 스스로 연구해 보세염. ^^
0
0
삭제
수정
댓글
(NOTICE) You must be
logged in
to comment on this post.
델초
2000.12.05 18:01
0
COMMENTS
/
0
LIKES
제발 도와주세요.
동주
2000.12.05 17:58
0
COMMENTS
/
0
LIKES
Dll만들때--> StringGrid를 excel로 변환시 Eolesyserror
최철민
2000.12.05 17:51
0
COMMENTS
/
0
LIKES
오라클의 RowNum과 같은 기능...
델걸음마
•
2000.12.05 12:28
1
COMMENTS
/
0
LIKES
소스 좀 봐주세여.
컴맹...
•
2000.12.05 18:19
아래의 메시지는 Table name 을 입력을 하지 않은경우에 나는 에러군여.. Object inspector 의 TableNam...
Ti amo
2000.12.05 10:56
0
COMMENTS
/
0
LIKES
DelphiX와 메모리... ㅠㅠ
이기석
2000.12.05 09:01
0
COMMENTS
/
0
LIKES
현재 실행중인 웹부라우즈 URL 알기
김태헌
•
2000.12.05 06:03
1
COMMENTS
/
0
LIKES
ADO 랑 ActiveX, COM 의 차이점???
김종언
•
2000.12.05 19:43
ADO : Active Data Object DB연결 객체... (M$꺼.) 유사한것들... DAO, BDE 등등... 무쟈게 많음......
삐홍
•
2000.12.05 05:50
1
COMMENTS
/
0
LIKES
INI 파일의 내용에서 특정 키워드만 변경하는방법
안녕하세요.. 델피 초보 삐홍 입니다.. 여러 고수님의 가르침을 받고자 합니다... 제가 봉착한 문제는요.. INI파일을 엑세스를 해서 거기서 특정 단어를 색출, 다른 문자로 변경하는 일입니다. 뭐 INI든 TXT든 관계는 없는데요... 워낙에 ...
홍세비
•
2000.12.05 10:12
삐홍 wrote: > 안녕하세요.. > 델피 초보 삐홍 입니다.. > 여러 고수님의 가르침을 받고자 합니다... >...
정동일
2000.12.05 04:58
0
COMMENTS
/
0
LIKES
Xmodem 지원하는 통신 컴포넌트
[질문]
2000.12.05 04:44
0
COMMENTS
/
0
LIKES
컴포넌트 제작시.. 시각적컴포넌트
youngae
2000.12.05 04:24
0
COMMENTS
/
0
LIKES
TreeView에서 이미지 두개 넣기 (한라인에)
초보
•
2000.12.05 04:50
2
COMMENTS
/
0
LIKES
키 제어..
로비
•
2000.12.05 10:48
참고가 되었으면 합니다 1. CTRL + ALT + DEL 막기와 풀기 function RegisterServiceProcess ...
초보
•
2000.12.05 20:53
로비 wrote: 답변해주셔서 정말 감사한데요.. 후킹이 폼을 감추(hide)었을때는 않되네요... 폼을 숨...
빙
2000.12.05 02:55
0
COMMENTS
/
0
LIKES
TList에서 왜 검색하기전에 꼭 정렬이 되어야 하나요?
BABO
•
2000.12.05 02:53
1
COMMENTS
/
0
LIKES
[급질문]MemoryStream을 String에 저장하는 방법...?
보리차
•
2000.12.06 07:57
전 델파이 안쓰걸랑요.. 빌더써욥 !! 근데 답변이 한동한 없었던 관계로 C++ 로 설명이라두, 참고하시기 ...
delphi4
2000.12.05 02:56
0
COMMENTS
/
0
LIKES
[요청]어드밴스스트링그리드 메뉴얼 좀...
k291
•
2000.12.05 02:27
3
COMMENTS
/
0
LIKES
웹상에서 실행파일 다운 받아서 바로 실행하는 방법좀...
이경문
•
2000.12.05 05:01
ActiveX를 만드시져. 특정 사이트로부터 FTP나 HTTP를 이용하여 관련 모듈을 다운받고 다운이 다 되면 실...
최은석
•
2000.12.05 02:45
shellexecute 의 옵션을 open 으로 주시면 됩니당... ShellExecute(handle, 'open', 파일명, nil,nil,SW_S...
구글
•
2000.12.05 02:35
k291 wrote: > 안녕하세요 > 제가 어떻 사이트에 보니까 > 델파이로 짠 프로그램을 바로 웹 상에서 다운...
雨中傘步
2000.12.05 02:27
0
COMMENTS
/
0
LIKES
[DLL] MDI 부모에서 DLL 내의 Child 호출시...
현
2000.12.05 01:58
0
COMMENTS
/
0
LIKES
프린터
델초짜
2000.12.05 01:52
0
COMMENTS
/
0
LIKES
네트워크내 파일검색
눈부신너
2000.12.05 01:47
0
COMMENTS
/
0
LIKES
대신증권 챠트의 ocx가 무엇인가요?
삐홍
2000/12/05 05:50
Views
350
Likes
0
Comments
1
Reports
0
Tag List
수정
삭제
목록으로
한델 로그인 하기
로그인 상태 유지
아직 회원이 아니세요? 가입하세요!
암호를 잊어버리셨나요?
> 안녕하세요..
> 델피 초보 삐홍 입니다..
> 여러 고수님의 가르침을 받고자 합니다...
> 제가 봉착한 문제는요..
> INI파일을 엑세스를 해서 거기서 특정 단어를 색출, 다른 문자로 변경하는
> 일입니다. 뭐 INI든 TXT든 관계는 없는데요...
> 워낙에 초보라서 접근 방법을 모르고 있습니다.
> 여러 고수님들의 고견을 듣고 싶습니다..^^;
> 그럼...좋은 하루 되세용..
안녕하세요. 홍세빕니다.
흠..아래 함수를 이용해 보세염..간단하게 변환할수 있습니당
procedure replace(var source: string; find, repl: string);
var
ind : integer;
next : string;
begin
ind := pos(find, source);
if ind > 0 then begin
next := copy(source, ind+length(find), 10000);
replace(next, find, repl);
source := copy(source, 1, ind-1) + repl + next;
end;
end;
function LoadFile(fil: string): string;
var
list : TStringList;
begin
try
list := TStringList.Create;
list.LoadFromFile(fil);
result := list.Text;
list.Free;
except
Exit;
end;
end;
.............
var
fn : string;
begin
fn := LoadFile('INI 파일');
replace(fn, '찾는문자열','바꿀문자열');
end;
// 물론 다시 파일로 저장해 줘야하구요...
// 그리고 엔터처리를 해주셔야 하겠죠. 이부분은 스스로 연구해 보세염. ^^