Question

我启动了一个新软件，将我文本框中插入的所有文本保存到文本文件中，每个工作正常但是它保存到文件有参考的文件，如何保存我的文件扩展内容。文本我试过这个方法，但文件没有扩展名，我想念我的代码。在搜索之后，我找到了解决方案但是如何将新行添加到现有文件中，删除所有已准备就绪的内容

这是我的代码

Imports System.Text
Imports Microsoft.Win32
Imports System.IO
Imports System
Imports Microsoft.VisualBasic
Public Class Form1
Private Sub btnMapaEndereco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapaEndereco.Click

    If VerificaNavegador() Then

        Try
            Dim rua As String = String.Empty
            Dim cidade As String = String.Empty
            Dim estado As String = String.Empty
            Dim cep As String = String.Empty
            Dim path As String = "c:\Mymaps"
            Dim FileName As String = "C:\Mymaps\mymaps.txt"

            Dim path2 As String = My.Computer.FileSystem.SpecialDirectories.Desktop


            Dim consultaEndereco As New StringBuilder()
            consultaEndereco.Append("http://maps.google.com/maps?q=")

            Dim FILE_NAME As String = "C:\MyMapsDataSearchQueris.txt"
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
            objWriter.WriteLine("rua: " + txtRua.Text)
            objWriter.WriteLine("cidade: " + txtCidade.Text)
            objWriter.WriteLine("estado: " + txtEstado.Text)
            objWriter.WriteLine("cep: " + txtCep.Text)
            objWriter.WriteLine("-----------fim de pesquisa-----------")
            objWriter.Close()


            ' monta a rua como parte da consulta
            If txtRua.Text <> String.Empty Then
                rua = txtRua.Text.Replace(" ", "+")
                consultaEndereco.Append(rua + "," & "+")
            End If

            ' monta a cidade como parte da consulta
            If txtCidade.Text <> String.Empty Then
                cidade = txtCidade.Text.Replace(" ", "+")
                consultaEndereco.Append(cidade + "," & "+")
            End If

            ' monta o estado como parte da consulta
            If txtEstado.Text <> String.Empty Then
                estado = txtEstado.Text.Replace(" ", "+")
                consultaEndereco.Append(estado + "," & "+")
            End If

            ' monta o cep como parte da consulta
            If txtCep.Text <> String.Empty Then
                cep = txtCep.Text.ToString()
                consultaEndereco.Append(cep)
            End If

            ' passa a url com a query string para o controle webbrowser
            webb1x.Navigate(consultaEndereco.ToString())


        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString(), "Não foi possível obter o Mapa")

        End Try
    Else
        MessageBox.Show("O Naveador usado é Incompatível", "Aviso")
    End If


End Sub

Private Function VerificaNavegador() As Boolean
    Dim versaoNavegador As Integer, RegVal As Integer
    Try
        ' obtem a versão instalada do IE
        Using Wb As New WebBrowser()
            versaoNavegador = Wb.Version.Major
        End Using

        ' define a versão do IE
        If versaoNavegador >= 11 Then
            RegVal = 11001
        ElseIf versaoNavegador = 10 Then
            RegVal = 10001
        ElseIf versaoNavegador = 9 Then
            RegVal = 9999
        ElseIf versaoNavegador = 8 Then
            RegVal = 8888
        Else
            RegVal = 7000
        End If

        ' define a chave atual
        Dim Key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
        Key.SetValue(System.Diagnostics.Process.GetCurrentProcess().ProcessName + ".exe", RegVal, RegistryValueKind.DWord)
        Key.Close()
        Return True

    Catch ex As Exception
        Return False
    End Try
End Function


Private Sub btnMapaCoordenadas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMapaCoordenadas.Click


    If VerificaNavegador() Then
        If txtLatitude.Text = String.Empty Or txtLongitude.Text = String.Empty Then
            MessageBox.Show("Forneça os valores para a latitude e a longitude.", "Dados inválidos")
        End If

        Try
            Dim lat As String = String.Empty
            Dim lon As String = String.Empty

            Dim consultaEndereco As New StringBuilder()
            consultaEndereco.Append("http://maps.google.com/maps?q=")

            ' monta a latitude como parte da consulta
            If txtLatitude.Text <> String.Empty Then
                lat = txtLatitude.Text
                consultaEndereco.Append(lat + "%2C")
            End If

            ' monta a longitude como parte da consulta
            If txtLongitude.Text <> String.Empty Then
                lon = txtLongitude.Text
                consultaEndereco.Append(lon)
            End If

            webb1x.Navigate(consultaEndereco.ToString())

        Catch ex As Exception

            MessageBox.Show(ex.Message.ToString(), "Error")

        End Try

    Else
        MessageBox.Show("O Naveador usado é Incompatível", "Aviso")
    End If

End Sub

Private Sub splitContainer1_Panel1_Paint(sender As Object, e As PaintEventArgs) Handles splitContainer1.Panel1.Paint

End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
    Form3.Show()
End Sub
End Class

Answer 1

只需修改如下所示的行：

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

将文本写入或附加到现有文件

1 个答案: