Vb.net 如何将Textboxt.Text保存为文件名?
这个代码怎么了 我需要添加Vb.net 如何将Textboxt.Text保存为文件名?,vb.net,Vb.net,这个代码怎么了 我需要添加textbox13.text(它的值以数字表示)作为文件名,如何添加一个选项来检查文件是否已经存在,如果已经存在,则在按下保存按钮时显示一个选项,称为“替换”或“取消” 到目前为止,代码如下: Dim i As Integer = 0 Dim filepath As String = IO.Path.Combine("D:\Logs", Textbox13.Text + i.ToString() + ".txt") Using sw As New Str
textbox13.text
(它的值以数字表示)作为文件名,如何添加一个选项来检查文件是否已经存在,如果已经存在,则在按下保存按钮时显示一个选项,称为“替换”或“取消”
到目前为止,代码如下:
Dim i As Integer = 0
Dim filepath As String = IO.Path.Combine("D:\Logs", Textbox13.Text + i.ToString() + ".txt")
Using sw As New StreamWriter(filepath)
sw.WriteLine(TextBox13.Text)
sw.WriteLine(TextBox1.Text)
sw.WriteLine(TextBox2.Text)
sw.WriteLine(TextBox3.Text)
sw.WriteLine(TextBox4.Text)
sw.WriteLine(TextBox5.Text)
sw.WriteLine(TextBox7.Text)
sw.WriteLine(TextBox9.Text)
sw.WriteLine(TextBox10.Text)
sw.WriteLine(TextBox11.Text)
sw.WriteLine(TextBox12.Text)
这是表格一
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Form2.WriteTextBoxTextToLabel(TextBox1.Text)
Form2.WriteTextBoxTextToTextbox(TextBox1.Text)
End Sub
这是表格2
Public Sub WriteTextBoxTextToLabel(ByVal Txt As String)
lblPD.Text = Txt
End Sub
Public Sub WriteTextBoxTextToTextbox(ByVal Txt As String)
TextBox13.Text = Txt
End Sub
Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged
TextBox13.Text = lblPD.Text
End Sub
您可以在创建
StreamWriter
之前添加以下逻辑:
if system.io.file.exists(filepath) then
' The file exists
else
' The file does not exist
end if
谢谢,但是如何将我的文件另存为textbox13.text中的文本?您已经在文件路径中包含了
textbox13.text
的值,否?是的,但它没有另存为textboxt文本错误消息(System.ArgumentException:“路径中的非法字符”。)顺便说一句,textbox13.text是从另一个textboxits from form1 textbox生成的,并生成form2 lable,然后lable.text生成textbox13.text,它是在form 2I中。我已经恢复了上次编辑,因为我们在这里不使用[solved]标题破解,也不添加解决方案材料作为附录。基于现有答案的自我回答非常受欢迎-请在下面添加答案(即不在问题或评论中)。谢谢