|
いつもお世話になっております。
以前教えて頂いたfindstrを使って転記していたのですが、今回だけうまくいきません。
以前のを修正しただけなのでうまくいくはずなのですが、ファイルオープン数のエラーが発生します。
ご教授ください。
「Error: 最大FILE_OEPN数=64 を超えました 10行目: 抽出 = FOPEN("temp.csv",F_WRITE)」
データは下記のようなほぼ同一のデータで、取寄日が空白の場合は「入荷日調査.CSV」から
取寄日を転記します。
前の残_糸川.CSV
得意先名,直送先名,受注番号,担当者名,業者名,品名,組立業者名,納品日,必要日,納期,取寄日,品番,数量
松戸店,松戸店,04/02-570-01-01,高田,白方,ﾊｺ,吉田,2024/08/31,2024/08/30,24/08/31,2024/05/06,A-2014,1
松戸店,松戸店,04/02-571-01-01,高田,白方,ﾊｺ,吉田,2024/08/31,2024/08/30,24/08/31,,A-2014,1
松戸店,松戸店,04/02-572-01-01,高田,白方,ﾊｺ,吉田,2024/08/31,2024/08/30,24/08/31,2024/05/06,A-2014,1
入荷日調査.CSV
得意先名,直送先名,受注番号,担当者名,業者名,品名,組立業者名,納品日,必要日,納期,取寄日,品番,数量
松戸店,松戸店,04/02-571-01-01,高田,白方,ﾊｺ,吉田,2024/08/31,2024/08/30,24/08/31,2024/08/30,A-2014,1
dim 前の残="前の残_糸川.CSV"
dim 入荷日調査="入荷日調査.csv"
P手動で追加した取寄日を受注残に追加findstr(入荷日調査,前の残)
PROCEDURE P手動で追加した取寄日を受注残に追加findstr(入荷日調査,前の残)
dim 前の残??,入荷日調査??,取寄日
残 = fopen(前の残,F_READ or F_WRITE)
For z = 1 to fget(残,-1)
抽出 = fopen("temp.csv",f_write)
if fget(残,z,1) = "" then break
if fget(残,z,11) <> "" then continue
前の残?? = fget(残,z,3)
print 前の残??
該当する行 = doscmd("findstr " + 前の残?? +" "+ 入荷日調査)
if 該当する行 <> "" then fput(抽出,該当する行)
fclose(抽出)
抽出 = FOPEN("temp.csv")
For i = 1 to FGET(抽出, -1)
入荷日調査?? = fget(抽出,i,3)
ifb 入荷日調査?? = 前の残?? then
取寄日 = fget(抽出,i,11)
fput(残,取寄日,z,11)
break
endif
next
FCLOSE(抽出)
next
fclose(残)
FEND
|
No.1735 2024/07/07(Sun) 09:37:18
|
