この記事の例では、VB で txt ファイルを開いて保存する方法を説明します。皆さんの参考に共有してください。詳細は以下のとおりです。
Private Sub cmdsave_Click()Dim filelocation As String' ロード ボックスとして保存 commondialog1.ShowSave filelocation = commondialog1.FileName' append 支援する場合はファイルに上書き保存 Open filelocation For Append As #1 Print #1, text1.text Close #1End SubPrivate Sub cmdopen_Click ()Dim filelocation As String' オープンボックスを表示 commondialog1.ShowOpen filelocation = commondialog1.FileName' inputファイルを text1.text にファイルの場所を開く For Input As #1Do until EOF(1) #1 を入力、データ text1.text = text1.text + Data + vbNewLine EOF (1) ループ #1End Sub を閉じる
この記事が皆様の VB プログラミングのお役に立てれば幸いです。