ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
QNo.4150651 テキストファイルを保存しきれない
質問者：nyoro514 いつもありがとうございます。

iniファイルを置換して上書き保存するのですが、置換して保存すると保存後のファイルの最後のほうが切れて保存しきれていませんでした。

保存前→100行
保存後→80行

な感じです。コードが悪いんだと思いますが、どなたか教えていただけないでしょうか。


Dim FileObj13 As Object
Dim ListFile13 As String


Try
FileObj13 = New IO.StreamReader(Foldername & "\CUS\UISetup.ini", System.Text.Encoding.Default)


ListFile13 = FileObj13.ReadToEnd()


FileObj13.Close()

Catch ex As Exception

MessageBox.Show("指定のファイルが見つかりません", "エラー", _
MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

'置換
ListFile13 = ListFile13.Replace("K", "G")
ListFile13 = ListFile13.Replace("C5", "45")

'ファイルを上書きで保存するための指定
Dim writer13 As New System.IO.StreamWriter(Foldername & "\CUSUISetup.ini", False, System.Text.Encoding.Default)

writer13.Write(ListFile13)

Label2.Text = "完了"
困り度：
  • すぐに回答を！
質問投稿日時：
08/07/04 14:09

回答
ANo.1 writer13のCloseメソッドが無いため書き込みバッファのフラッシュがされていないのが原因かも知れませんよ

Writeメソッドを実行した次の行で
writer13.Close()を実行しましょう
回答者：redfox63
種類：回答
どんな人：専門家
自信：自信あり
回答日時：
08/07/04 14:52
この回答への補足この回答に補足をつける(質問者のみ)
この回答へのお礼この回答にお礼をつける(質問者のみ)
 
スポンサーサイト（詳細）
このページのトップへ