none
Localizar usuario em arquivo de texto RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |