次のようにプログラムに設定を保存したいと思います。ファイルを開くためのインポートボタンがあります。次回プログラムを起動したときに、設定などとして既に「インポート」されているようにするにはどうすればよいですか? *注 - 方法がまったくわからないため、何も試していません。
質問する
199 次
1 に答える
0
コードは、インポートを行うときにすべてのファイル名をテキスト ファイルに書き込むようなことを行います。次に、プログラムを実行するたびにテキスト ファイルを読み取り、内容を確認します。プログラムに合わせてコードを修正する必要がある場合があります
Private Const MySetting As String = "MySetting.txt"
Private Sub Log_into_File(ByVal Filenames() As String)
Dim oFile As System.IO.File
Dim oWrite As System.IO.StreamWriter
oWriter = oFile.OpenText(MySetting)
For Each FName As String IN Filenames
oWrite.WriteLine(FName & VbCrLF)
Next
oWriter.Close()
End Sub
Private Function Is_Imported() As Boolean
Dim EntireFile As String
Dim oFile As System.IO.File
Dim oReader As System.IO.StreamReader
oReader = oFile.OpenText(MySetting)
EntireFile = oRead.ReadToEnd()
oRead.Close()
Return Trim(Replace(EntireFile, VbCrLF, "")).Equals(String.Empty)
End Function
于 2012-04-27T01:18:45.867 に答える