none
Localizar usuario em arquivo de texto RRS feed

  • Pergunta

  • Ba galera.

    Por favor tche me ajudem, pois trabalhar medicado é florida tche.

    Montei o código abaixo para abrir um arquivo de texto e ele localizar se o usuário logado esta presente no mesmo, mais não estou obtendo sucesso tche.

    código.


    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = UCase(objNetwork.UserName)
    
    On Error Goto 0
    
    strCaminho = "c:\temp\localseghost.txt"
    
    Set FSO = createobject("scripting.filesystemobject")
    Set objTextFile = FSO.opentextfile(strCaminho,1)
        
        if instr(strCaminho,strUserName) then
            wscript.echo "usuario encontrado"
        Else
            wscript.echo "usuario nao existe"
        End if
    
    objTextFile.Close
    


    o que pode estar errado tche.

    obrigado.


    • Editado Fábio JrModerator terça-feira, 23 de abril de 2013 15:47 Formatação do código
    terça-feira, 23 de abril de 2013 15:36

Respostas

  • Marcelo,

    Faltor ler as linhas, isto poderia ser feito linha por linha ou tudo de uma vez, eu usei ler tudo de uma vez (ReadAll).

    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = UCase(objNetwork.UserName)
    
    On Error Goto 0
    
    strCaminho ="c:\temp\localseghost.txt"
    
    Set FSO = createobject("scripting.filesystemobject")
    Set objTextFile = FSO.opentextfile(strCaminho,1)
    
    If objTextFile.AtEndOfStream Then
    	ReadAllTextFile = ""
    	wscript.echo "usuario nao existe"
    Else
    	ReadAllTextFile = objTextFile.ReadAll
    	if instr(ReadAllTextFile,strUserName) then
    		wscript.echo "usuario encontrado"
    	Else
    		wscript.echo "usuario nao existe"
    	End if		
    		
    End If
    
    objTextFile.Close

    Não testei.

    Ref.:

    ReadAll Method

    http://msdn.microsoft.com/en-us/library/t58aa4dd(v=vs.84).aspx


    Fábio de Paula Junior


    • Editado Fábio JrModerator terça-feira, 23 de abril de 2013 15:46
    • Marcado como Resposta Marcelo TI terça-feira, 23 de abril de 2013 16:21
    terça-feira, 23 de abril de 2013 15:45
    Moderador

Todas as Respostas

  • Marcelo,

    Faltor ler as linhas, isto poderia ser feito linha por linha ou tudo de uma vez, eu usei ler tudo de uma vez (ReadAll).

    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = UCase(objNetwork.UserName)
    
    On Error Goto 0
    
    strCaminho ="c:\temp\localseghost.txt"
    
    Set FSO = createobject("scripting.filesystemobject")
    Set objTextFile = FSO.opentextfile(strCaminho,1)
    
    If objTextFile.AtEndOfStream Then
    	ReadAllTextFile = ""
    	wscript.echo "usuario nao existe"
    Else
    	ReadAllTextFile = objTextFile.ReadAll
    	if instr(ReadAllTextFile,strUserName) then
    		wscript.echo "usuario encontrado"
    	Else
    		wscript.echo "usuario nao existe"
    	End if		
    		
    End If
    
    objTextFile.Close

    Não testei.

    Ref.:

    ReadAll Method

    http://msdn.microsoft.com/en-us/library/t58aa4dd(v=vs.84).aspx


    Fábio de Paula Junior


    • Editado Fábio JrModerator terça-feira, 23 de abril de 2013 15:46
    • Marcado como Resposta Marcelo TI terça-feira, 23 de abril de 2013 16:21
    terça-feira, 23 de abril de 2013 15:45
    Moderador
  • Ba tche, e vc tem que testar ainda Fabião, muito obrigado pela força tche.

    funcionou legal como sempre.

    terça-feira, 23 de abril de 2013 16:22
  • Ba fabião.

    Como posso fazer tech para que o itens que são apresentados como texto sejam uma strig para que em outro momento eu realize o display tche ou a escrita de texto.

    terça-feira, 23 de abril de 2013 17:38
  • Não sei se entendi bem.

    O arquivo texto está todo dentro da várialvel ReadAllTextFile .


    Fábio de Paula Junior

    terça-feira, 23 de abril de 2013 23:19
    Moderador
  • Ba Fabião

    bom dia

    sim mais já matei o gato tche, ficou assim, obrigado.

    ReadAllTextFile = objTextFile.ReadAll
    if instr(ReadAllTextFile,strUserName) then
    strresult = strUserName
    Else
    strresult =
     "usuario nao existe"
    End if


    • Editado Marcelo TI quarta-feira, 24 de abril de 2013 12:34
    quarta-feira, 24 de abril de 2013 12:34