none
verificar contenido de un archivo y actuar o nó en él RRS feed

  • Pregunta

  • Tengo esto:


    Const ForReading = 1
    intFound = 0

     

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.OpenTextFile("C:\test.txt", ForReading)
    strContents = objFile.ReadAll
    objFile.Close

     

    If InStr(strContents, "system") Then
     intFound = intFound + 1
    End If

     

    If intFound = 2 Then
     MsgBox( "Ya existe la entrada")

    Else  

     

     {modificacion interna del archivo}

     

    End If

     

    Lo que quiero hacer es:

     

    Si el texto "system" aparece como contenido del archivo test.txt que aparezca "Ya existe la entrada", y sinó ejecutar {modificacion interna del archivo} que eso si me funciona.

     

    La verificación de la cadena de búsqueda es lo que no me funciona, ¿alguna sugerencia o solución?

    Gracias de antemano

     

    lunes, 8 de octubre de 2007 14:48

Respuestas

  • Hola,

     

    en primero, yo diria que "IntFound" nunca podra tener el valor 2 ! (al mejor 1 si la cadena existe).

     

    Ademas, InStr tiene como resultado la posicion de la cadena !

     

    Por eso, tienes que probar "Inst(StrContents, "system") >0"

     

    Un saludo.

     

     

    lunes, 8 de octubre de 2007 20:56
  • Hola,

     

    la funcion "instr" esta hecha para buscar en una linea...

     

    con "readall", la variable tiene todo el contenido del fichero!!!

     

    Tienes que leer linea por linea, y buscar en cada linea.

    Un saludo.

     

    martes, 9 de octubre de 2007 21:54

Todas las respuestas