FOPEN

構文
FOPEN( ファイル名, [オープンモード] )
引数
ファイル名
テキストファイル名
オープンモード
以下の方法で指定
F_READ
読み専用モード(デフォルト)SJIS、UTF8、UTF16に対応
F_WRITE
書き専用モード(既にファイルがあれば前の情報は消去)
(UNICODEがある場合に UTF8、無い場合にはSJISになる)
F_READ or F_WRITE
読み書き両用指定
F_EXISTS
ファイル存在チェック(ファイルオープンせずにファイルが存在するかを返す)
(ディレクトリをチェックしたい場合は最後に \を付加)
追加指定
F_EXCLUSIVE
排他制御(排他制御の読み書き: F_READ or F_WRITE or F_EXCLUSIVE)
F_TAB
CSV処理に対しカンマではなくタブを使用
F_NOCR
書き込みにてファイルの最後の改行は付加しない
(F_WRITE or F_NOCR)
※文字コードを指定したい場合は、F_WRITE の代わりに以下を指定する
F_WRITE8:UTF8、 F_WRITE8B:BOM付きUTF8、 F_WRITE16:UTF16、 F_WRITE1:SJIS
戻値

ファイルID

オープンできなかった場合は-1 を返す

F_EXISTS 指定時は TRUE(在り)/ FALSE(無し)を返す

プログラム実行例

システム起動時間を取得

HASHTBL INFO DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM filename = uniqueFilename(FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")) FID = FOPEN(filename, F_READ OR F_WRITE) FPUT(FID, DOSCMD("systeminfo /FO CSV")) FCLOSE(FID) FID = FOPEN(filename, F_READ OR F_WRITE) FOR col = 0 TO 33 INFO[FGET(FID, 1, col)] = FGET(FID, 2, col) NEXT FCLOSE(FID) FSO.DeleteFile(filename) PRINT INFO["システム起動時間"] ////////////////////////////////////////////////// // 【引数】 // path : ファイルのパス // 【戻値】 // 重複しないファイル名 ////////////////////////////////////////////////// FUNCTION uniqueFilename(path) DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB FSO.FileExists(path) THEN fol = FSO.GetParentFolderName(path) filename = FSO.GetBaseName(path) extension = FSO.GetExtensionName(path) i = 2 WHILE FSO.FileExists(FSO.BuildPath(fol, filename + " (" + i + ")." + extension)) i = i + 1 WEND RESULT = FSO.BuildPath(fol, filename + " (" + i + ")." + extension) ELSE RESULT = path ENDIF FEND
結果
2019/12/21, 15:53:56

Windowsの稼働時間を取得

HASHTBL INFO DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") DIM filename = uniqueFilename(FSO.BuildPath(GET_CUR_DIR, "SYSTEMINFO.csv")) FID = FOPEN(filename, F_READ OR F_WRITE) FPUT(FID, DOSCMD("systeminfo /FO CSV")) FCLOSE(FID) FID = FOPEN(filename, F_READ OR F_WRITE) FOR col = 0 TO 33 INFO[FGET(FID, 1, col)] = FGET(FID, 2, col) NEXT FCLOSE(FID) FSO.DeleteFile(filename) PRINT INFO["システム起動時間"] ////////////////////////////////////////////////// // 【引数】 // path : ファイルのパス // 【戻値】 // 重複しないファイル名 ////////////////////////////////////////////////// FUNCTION uniqueFilename(path) DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB FSO.FileExists(path) THEN fol = FSO.GetParentFolderName(path) filename = FSO.GetBaseName(path) extension = FSO.GetExtensionName(path) i = 2 WHILE FSO.FileExists(FSO.BuildPath(fol, filename + " (" + i + ")." + extension)) i = i + 1 WEND RESULT = FSO.BuildPath(fol, filename + " (" + i + ")." + extension) ELSE RESULT = path ENDIF FEND
結果
0:08:16:46

歌ネットから歌詞を取得してテキストファイルに保存

CONST ssfDesktop = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.Navigate("https://www.uta-net.com/song/280568/") BusyWait(IE) DIM element, elements, name, lyrics element = IE.document.getElementById("view_kashi") elements = element.getElementsByClassName("title") name = TRIM(elements.Item(0).innerText) element = IE.document.getElementById("kashi_area") lyrics = element.innerText IE.Quit DIM Shell = CREATEOLEOBJ("Shell.Application") DIM Folder = Shell.NameSpace(ssfDesktop) DIM path = Folder.Self.Path DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") path = uniqueFilename(FSO.BuildPath(path, name + ".txt")) DIM FID = FOPEN(path, F_READ OR F_WRITE) FPUT(FID, lyrics) FCLOSE(FID) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(IE) TRY SLEEP(0.500) REPEAT SLEEP(0.010) UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT SLEEP(5.000) ENDTRY FEND ////////////////////////////////////////////////// // 【引数】 // path : ファイルのパス // 【戻値】 // 重複しないファイル名 ////////////////////////////////////////////////// FUNCTION uniqueFilename(path) DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject") IFB FSO.FileExists(path) THEN fol = FSO.GetParentFolderName(path) filename = FSO.GetBaseName(path) extension = FSO.GetExtensionName(path) i = 2 WHILE FSO.FileExists(FSO.BuildPath(fol, filename + " (" + i + ")." + extension)) i = i + 1 WEND RESULT = FSO.BuildPath(fol, filename + " (" + i + ")." + extension) ELSE RESULT = path ENDIF FEND

この記事は役に立ちましたか?
役に立った 役に立たなかった