0

私はこのコードを持っています:

      Dim FILE_NAME As String = "C:\filename.txt"

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

            objWriter.Write(TextBox1.Text)
            objWriter.Close()

しかし、私はこのようなものを作りたいです (以下のテキストのobjWriter.Write(TextBox.Text)に注意してください):

      Dim FILE_NAME As String = "C:\filename.txt"

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

            objWriter.Write("Lorem ipsum dolor sit amet, consectetur adipiscing objWriter.Write(TextBox1.Text). 
                             Duis dignissim, lacus vel tincidunt pellentesque, lacus ipsum venenatis libero, 
                             faucibus iaculis lectus diam id libero. Mauris interdum augue id lacus
                             commodo consequat. objWriter.Write(TextBox2.Text) et ligula sed sapien")

            objWriter.Close()

アップデート：

実際の出力:

Lorem ipsum dolor sit amet, consectetur adipiscing objWriter.Write(TextBox1.Text). Duis dignissim、lacus vel tincidunt pellentesque、lacus ipsum venenatis libero、commodo consequat。TEST et ligula sed sapien

必要な出力（私は頭に行きたい）：

Lorem ipsum dolor sit amet, 
consectetur adipiscing objWriter.
Write(TextBox1.Text). 
Duis dignissim, lacus 
vel tincidunt pellentesque,
 lacus ipsum venenatis libero, 
commodo consequat. TEST et ligula sed sapien
4

1 に答える 1

2

現在のコードでこれを行う最も簡単な (しかし必ずしも理想的ではない) 方法は次のとおりです。

' UPDATED: Use Environment.NewLine to insert new line breaks:

Dim output As String = "" & _
        "Lorem ipsum dolor sit amet, consectetur adipiscing " & _
        Environment.NewLine & _
        TextBox1.Text & " " & _
        Environment.NewLine & _
        "Duis dignissim, lacus vel tincidunt pellentesque, lacus ipsum venenatis libero, " & _
        "commodo consequat. " & _
        Environment.NewLine & _
        TextBox2.Text + " " & _
        Environment.NewLine & _
        "et ligula sed sapien"

'You are trying to write to root of C here. May require elevated privileges.
' Try writing to your user directory, or documents folder. 
Dim FILE_NAME As String = "C:\filename.txt"
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
objWriter.Write(output)
objWriter.Close()

ファイルを C ドライブのルートに直接書き込もうとすると、権限の問題が発生する可能性があることに注意してください。VSを管理者として実行しない限り（ユーザーが実行する可能性は低い）、ディレクトリパスをホームフォルダーに変更するまで、このコードで同様の問題が発生しました。

とは言っても、実際には、テキストボックスの内容をストリームライターから読み取って挿入する方法を尋ねているかもしれません。その場合、適切な挿入ポイントを調整する方法を考え出す必要があります。ただし、これは、上記のコードで説明したことを具体的に達成する方法です。

アップデート：

THIS のようなものを使用して、出力ディレクトリとファイル名を指定することができます。または、もちろん、SaveFileDialog を使用して、ユーザーが指定できるようにします。

Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim FILE_NAME As String = Path & "\MyNextNewFile.txt"
于 2012-10-28T14:24:25.897 に答える