★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:100 CSVファイルの値を２倍して書き戻す
by うｗｓｃ 2009/05/30(Sat) 19:32:45
//　CSVファイルの値を２倍して書き戻す
fid　=　FOPEN("TEST.CSV",　F_READ　or　F_WRITE)　　　//　ファイルオープン
For　行　=　1　to　FGET(fid,　-1)　　　　　　　　　　　　　　　//　行数分
　　For　列　=　1　to　3　　　　　　　　　　　　　　　　　　　　　//　３列
　　　　atai　=　FGET(fid,　行,　列)　　　　　　　　　　　　　　 //　GET
　　　　if　ChkNum(atai)　then　atai　=　atai　*　2　　　　　 //　数字であれば２倍
　　　　FPUT(fid,　atai,　行,　列)　　　　　　　　　　　　　　　　//　PUT
　　next
next
FCLOSE(fid)　　　　　　　　　　　　　　　　　　　　　　　　　　　　//　ファイルクローズ

//　昨日の日報(yymmdd.dat),　月報(yymm.dat)名を生成
GetTime(-1)　　　　　　　　　　　　　　　　　　　　　　　　　　　　//　昨日の日付を取得
日報ファイル　=　G_TIME_YY2 +G_TIME_MM2 +G_TIME_DD2 +".DAT"
月報ファイル　=　G_TIME_YY2 +G_TIME_MM2 +".DAT"

//　2005年4月1日から60日目を算出
GetTime(60,　"20050401")　　　　　　　　　　　　　　　　　　　//　2005年4月1日を基準に+60日
指定日　=　G_TIME_YY2 +G_TIME_MM2 +G_TIME_DD2 +".DAT"