File name: addrbook/editdata.sub (1,104 bytes) Text file viewer v1.2 
    1 : /* file: editdata.sub
    2 : 
    3 :    주소록 자료 입력/수정시 항목값 편집 부 프로그램 (author: 서광현)
    4 : 
    5 :    Copyright (c) 2001/02/22 by Wesoft
    6 :    All Rights Reserved.
    7 : */
    8 : 
    9 : name= strchange(name, fch~"| ", rch~"|");
   10 : birth= strchange(lrtrim(birth), fch, rch);
   11 : hdphone= strchange(lrtrim(hdphone), fch, rch);
   12 : hphone= strchange(lrtrim(hphone), fch, rch);
   13 : hfax= strchange(lrtrim(hfax), fch, rch);
   14 : homepage= strchange(lrtrim(homepage), fch, rch);
   15 : email= strchange(lrtrim(email), fch, rch);
   16 : hzipcode= strchange(hzip1, fch, rch);
   17 : if(hzipcode!="") hzipcode~= "-" ~ strchange(hzip2, fch, rch);
   18 : haddr1= strchange(haddr1, fch, rch);
   19 : haddr2= strchange(lrtrim(haddr2), fch, rch);
   20 : office= strchange(lrtrim(office), fch, rch);
   21 : buseo= strchange(lrtrim(buseo), fch, rch);
   22 : position= strchange(lrtrim(position), fch, rch);
   23 : ophone= strchange(lrtrim(ophone), fch, rch);
   24 : ofax= strchange(lrtrim(ofax), fch, rch);
   25 : ozipcode= strchange(ozip1, fch, rch);
   26 : if(ozipcode!="") ozipcode~= "-" ~ strchange(ozip2, fch, rch);
   27 : oaddr1= strchange(oaddr1, fch, rch);
   28 : oaddr2= strchange(lrtrim(oaddr2), fch, rch);
   29 : memo= strchange(lrtrim(memo), fch, rch);
   30 : return;
File name: addrbook/editdata.sub (1,104 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.