- 【QBASIC互換!?】FreeBasic【GPL】
635 ：デフォルトの名無しさん[]：2016/09/14(水) 22:45:52.69 ID:7znWKoBZ - Public Function IniFileWrite(FileString as String, SecNameString as String, KeyNameString as String, KeyValString as String) as long
Dim As Long IErrorRetCodeLong
IErrorRetCodeLong = WritePrivateProfileString(SecNameString, KeyNameString, KeyValString, FileString)
IniFileWrite = abs(sgn(IErrorRetCodeLong))-1
end function
で、INIファイルの書き込みに成功。その後
IErrorRetCodeLong = GetPrivateProfileString(SecNameString, KeyNameString, "", strValue, StrLength, FileString)
で読み込みに成功した。
しかし、レジストリー関係は成功していない。
| - 【QBASIC互換!?】FreeBasic【GPL】
636 ：デフォルトの名無しさん[]：2016/09/14(水) 22:51:05.73 ID:7znWKoBZ - DBCS関係。
https://msdn.microsoft.com/ja-jp/library/cc410904.aspx
V.B.では、DBCSを1文字として数えていた。これで作ったルーチンって結構ある。
V.B.互換な Left$(), Mid$(), Reft$() 関数を作る必要に迫られている。
|
|