寫多行，在一個文本文件vb.net

Question

嗨報價是否有寫在具有類似的事情在報價和類似的其他東西或者是不喜歡這樣

的唯一辦法把一個文件多行任何更簡單的方法

   Dim objwriter As New System.IO.StreamWriter(AppsDir & "EthIPChanger.bat") 
      objwriter.WriteLine("@echo off") 
      objwriter.WriteLine("netsh interface ip set address name=""" & "Local Area Connection""" & " static " & TB_EthIPAddress.Text & " " & TB_EthSubnetMask.Text & " " & TB_EthDefaultGateway.Text & " 1") 
      objwriter.WriteLine("netsh interface ip set dns """ & "Local Area Connection""" & " static " & TB_EthDNS1.Text) 
      objwriter.WriteLine("ipconfig /all > """ & AppsDir & "NetworkInfo.txt""") 
      objwriter.WriteLine("echo hi > """ & AppsDir & "CheckLen.txt""") 
      objwriter.Close() 

我知道，如果你正在使用Python中，你可以做「」「然後做任何內部的，並結束它‘’」

難道這樣的事情在vb.net存在嗎？

感謝

Answer 1

如果使用objwriter.Write - 那麼你可以提供vbcrlf自己 - 然後你可以把多個「行」在一個寫聲明。

例如：

Dim str2write As string 
str2write = "firstline" and Chr(34) & Chr(34) & vbcrlf 
str2write &= Chr(34) & "second line" and Chr(34) & vbcrlf & vbcrlf 
objwriter.write(str2write) 
objwriter.close() 

Answer 2

你可以用StringBuilder的嘗試：

Dim objwriter As New System.IO.StreamWriter(AppsDir & "EthIPChanger.bat") 
    Dim textToWrite As New System.Text.StringBuilder 

    With textToWrite 
     .Append("@echo off") 
     .AppendFormat("netsh interface ip set address name={0}Local Area Connection{0} static {1} {2} {3} 1", Chr(34), TB_EthIPAddress.Text, TB_EthSubnetMask.Text, TB_EthDefaultGateway.Text) 
     .AppendFormat("netsh interface ip set dns {0}Local Area Connection{0} static {1}", Chr(34), TB_EthDNS1.Text) 
     .AppendFormat("ipconfig /all > {0}{1}{2}{0}", Chr(34), AppsDir, TB_EthDNS1.Text) 
     .AppendFormat("echo hi > {0}{1}{2}{0}", Chr(34), AppsDir, CheckLen.Text) 
    End With 

    objwriter.WriteLine(textToWrite.ToString) 
    objwriter.Close()