|
いつもお世話になっております。 全角と半角の空白の固定長とCSVの混ざった様な雛形に、 受注データを差し込んで転記したいのですが、空白だけはFGETで取り込めません。 このアイデアは駄目でしょうか? 駄目なら全部「♯」とかの雛形に変更するとか、 或いは雛形を止めてすべての項目をそれぞれ作成して足すとかも考えたりします。
ご教授頂けませんでしょうか?
//受注データを取り込む//発注書.csv //発注??,機種,数 //123,A123,2
dim excel = XLOPEN("発注書.csv") dim データ = XLGETDATA(Excel,"A1:AS2") XLCLOSE(Excel)
//書き込む基本をコピーする//全角と半角のスペース // , , ,//ご本尊.TXT
fid = fopen("ご本尊.TXT") dim ベース=fget(fid,F_ALLTEXT) fclose(fid)
//書き込む基本を貼り付ける fid = fopen("完成.txt",F_WRITE) fput(fid,ベース,F_ALLTEXT) fclose(fid)
//データを書き込む fid = fopen("完成.txt",F_READ or F_WRITE) n = length(fget(fid,1,1)) a=copy(データ[2,1]+format(" ",n),1,n)//後に全角空白を足す fput(fid,a,1,1) n = length(fget(fid,1,2)) a=copy(データ[2,2]+format(" ",n),1,n)//後に半角空白を足す fput(fid,a,1,2)
n = length(fget(fid,1,3)) a=replace(format(データ[2,3],n)," ","0")//前に半角空白を足す fput(fid,a,1,3) fclose(fid)
//カンマを除いて一気に転記する //f転記()
procedure f転記() fid = fopen("完成.txt") CTRLWIN(GETID("ET","ET"),ACTIVATE) SLEEP(0.1) KBD(VK_home) SLEEP(0.1) データ = fget(fid,1) データ = REPLACE(データ,",","") データ = REPLACE(データ,"<#DBL>","") SENDSTR(0,データ) sleep(0.1) KBD(VK_CTRL,DOWN) KBD(VK_V,CLICK) KBD(VK_CTRL,UP) fclose(fid) fend
|
No.1502 2022/07/22(Fri) 23:07:44
|