none
No guardar un texto si esta presente en un txt RRS feed

  • Pregunta

  • Buen dia, saludos busco como poder guardar en un txt, un texto, pero antes deseo hacer una consulta en el txt, saber si las lineas contienen ya esa palabra, si la contiene no guardar el texto o con consiguiente guardarla.

     Const fic As String = "D:\" & TextBox2.Text & ".txt"
            Dim texto As String = "dato"
    
            Dim sw As New System.IO.StreamWriter(fic, True)
            sw.WriteLine(texto)
            sw.Close()
        End Sub

    sábado, 3 de marzo de 2018 17:45

Respuestas

  • Puedes leer el contenido del fichero, ver si contiene el texto, y si no lo contiene entonces grabar:

    Dim texto As String = "dato"
        If Not System.IO.File.ReadAllText(fic).Contains(texto) Then
            Dim sw As New System.IO.StreamWriter(fic, True)
            sw.WriteLine(texto)
            sw.Close()
        End If
    End Sub

    sábado, 3 de marzo de 2018 20:51
  • No tienes más que leer el fichero y buscar en el contenido el texto a escribir:

    Dim fileContent = File.ReadAllLines(fic)
    
    If Not fileContent.Contains(texto) Then
      Dim sw As New StreamWriter(fic, True)
      sw.WriteLine(texto)
      sw.Close()
    End If


    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    sábado, 3 de marzo de 2018 21:15

Todas las respuestas

  • Puedes leer el contenido del fichero, ver si contiene el texto, y si no lo contiene entonces grabar:

    Dim texto As String = "dato"
        If Not System.IO.File.ReadAllText(fic).Contains(texto) Then
            Dim sw As New System.IO.StreamWriter(fic, True)
            sw.WriteLine(texto)
            sw.Close()
        End If
    End Sub

    sábado, 3 de marzo de 2018 20:51
  • No tienes más que leer el fichero y buscar en el contenido el texto a escribir:

    Dim fileContent = File.ReadAllLines(fic)
    
    If Not fileContent.Contains(texto) Then
      Dim sw As New StreamWriter(fic, True)
      sw.WriteLine(texto)
      sw.Close()
    End If


    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    sábado, 3 de marzo de 2018 21:15
  • Disculpa pero en donde establezco la ruta del archivo, gracias
    domingo, 4 de marzo de 2018 0:11
  • Disculpa pero en donde establezco la ruta del archivo, gracias
    domingo, 4 de marzo de 2018 0:11
  • Como lo estabas haciendo: en la variable fic

    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    domingo, 4 de marzo de 2018 1:11
  • Disculpa pero en donde establezco la ruta del archivo

    En el mismo sitio donde ya la tenías. Disculpa, se me olvidó copiar esa línea desde tu código al ejemplo que te puse. No hay que cambiar nada en esa línea, si ya te funcionaba, déjala como la tuvieses antes.

    Dim fic As String = "D:\" & TextBox2.Text & ".txt"

    '... Dim texto As String = "dato" If Not System.IO.File.ReadAllText(fic).Contains(texto) Then Dim sw As New System.IO.StreamWriter(fic, True) sw.WriteLine(texto) sw.Close() End If




    • Editado Alberto PoblacionMVP domingo, 4 de marzo de 2018 7:12
    • Marcado como respuesta Cael1020 lunes, 5 de marzo de 2018 17:42
    • Desmarcado como respuesta Cael1020 miércoles, 7 de marzo de 2018 20:08
    domingo, 4 de marzo de 2018 7:09