下面陳述句有兩個問題：
1、遇空行時，程式停止，導TextBox9.Text路徑的TXT檔案無法全量復制到TextBox11.Text檔案中；
2、遇位數不足停止，如復制TextBox9.Text檔案每行的前11位，如該行的小于11位同樣會停止；
我想實作：
1、空行時能夠跳過，繼續復制下一行；
2、遇行字符位數不足時，全量復制，有多少位就復制多少位；
3、下面程式是從第一行開始復制，我想改為從第二行開始復制。
跪求牛人幫忙改陳述句。
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If (TextBox11.Text = "") Or (TextBox10.Text = "") Or (TextBox9.Text = "") Then
MsgBox("請檢查檔案、名稱、目標庫表是否填寫完整！")
Else
Dim temp As String
Dim f1 As StreamReader = File.OpenText(TextBox9.Text)
Dim f2 As StreamWriter = File.AppendText(TextBox11.Text)
temp = f1.ReadLine
While temp <> ""
f2.WriteLine((temp.Substring(0, 11) + ("|" + Now().Date.ToString("yyyymmdd") + "|" + TextBox10.Text)))
temp = f1.ReadLine
End While
f1.Dispose()
f2.Dispose()
MsgBox("入庫完成，請查看目標庫行數變化情況，以確定資料是否正常入庫！")
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/207432.html
標籤：VB.NET
下一篇：關于滑鼠拖拽形成邊框問題