Jump to content
Fórum Script Brasil

cahh74

Membros
  • Content Count

    4
  • Joined

  • Last visited

Community Reputation

0 Neutro

About cahh74

  1. Boa tarde, Estou trabalhando num script, porém o mesmo não grava a informação que está no campo Inputbox com acentuação.. Quando abro o arquivo TXT ele está codificado.. Alguém pode me ajudar? Segue script: Ele deverá substituir os nomes "Nomee", "Setorr" e "numeroo" pelo que for digitado no script.. porém ocorre este problema de acentuação. strInput = InputBox ("Digite seu Nome Completo") strInput1 = InputBox ("Digite seu Setor") strInput2 = InputBox ("Digite seu Ramal") Const FOR_READING = 1 Const FOR_WRITING = 2 Set wshShell = CreateObject( "WScript.Shell" ) strFileName = "assinatura.txt" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName, FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING) strContents = Replace(strContents, "Nomee", strInput) strContents = Replace(strContents, "Setorr", strInput1) strContents = Replace(strContents, "numeroo", strInput2) objTS.WriteLine strContents objTS.Close
  2. Estou com um problema semelhante a alguns casos que vi aqui no fórum, porém gostaria de sobrescrever uma determinada linha. Eu sei onde ela se encontra por número de linha e também por texto, mas não sei como posso substituir. Alguém pode me ajudar?? Tenho um arquivo cps onde preciso substituir estas linhas: <setting name="authorization_username" value="789"/> ->> linha 92 do arquivo <setting name="display_name" value="789"/> ->> linha 98 do arquivo <setting name="username" value="789"/> ->> linha 155 do arquivo E alterar pelo valor que o usuário insere no script. O Script que tenho é o seguinte: strInput = InputBox ("Digite seu ramal") Const FOR_READING = 1 Const FOR_WRITING = 2 Set wshShell = CreateObject( "WScript.Shell" ) strFileName = wshShell.ExpandEnvironmentStrings( "%userprofile%" ) & "\AppData\Local\CounterPath\RegNow Enhanced\default_user\settings.cps" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName, FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING) strContents = Replace(strContents, "789", strInput) objTS.WriteLine strContents objTS.Close Até então ele funciona, porém ele deve rodar com mais usuários e o valor não vai ser sempre "789", deverá ser o valor que existe dentro daquele arquivo e naquela variável. Por exemplo se value for 1000 e o usuário inserir 500, o script deverá alterar no arquivo o valor de 1000 para 500. A minha dúvida é como alterar isso a partir do valor que possuo no arquivo, pois pelo replace eu consigo alterar a partir do valor que já estou passando no código. Então pensei em substituir a linha por alguns parâmetros pré-definidos, e dentro de value colocar o strInput que o usuário digitou. Sou novata em vb e não consegui encontrar na internet. Essa seria a melhor forma? Alguém pode me ajudar?
  3. Boa tarde, vi que você orientou diversas pessoas e tem um ótimo conhecimento. Preciso muito de uma ajuda, pode me auxiliar?

    Estou com um problema semelhante a alguns casos que vi aqui no fórum, porém gostaria de sobrescrever uma determinada linha. Eu sei onde ela se encontra por número de linha e também por texto, mas não sei como posso substituir. Alguém pode me ajudar??

    Tenho um arquivo cps onde preciso substituir estas linhas:

    <setting name="authorization_username" value="789"/>                   ->> linha 92 do arquivo
    <setting name="display_name" value="789"/>                                   ->> linha 98 do arquivo
    <setting name="username" value="789"/>                                         ->> linha 155 do arquivo

    E alterar pelo valor que o usuário insere no script. O Script que tenho é o seguinte:

    strInput = InputBox ("Digite seu ramal")
    Const FOR_READING = 1
    Const FOR_WRITING = 2

    Set wshShell = CreateObject( "WScript.Shell" )
    strFileName = wshShell.ExpandEnvironmentStrings( "%userprofile%" ) & "\AppData\Local\CounterPath\RegNow Enhanced\default_user\settings.cps"

    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
    strContents = objTS.ReadAll
    objTS.Close

    Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

    strContents = Replace(strContents, "789", strInput)
    objTS.WriteLine strContents
    objTS.Close


    Até então ele funciona, porém ele deve rodar com mais usuários e o valor não vai ser sempre "789", deverá ser o valor que existe dentro daquele arquivo e naquela variável.

    Por exemplo se value for 1000 e o usuário inserir 500, o script deverá alterar no arquivo o valor de 1000 para 500.

    A minha dúvida é como alterar isso a partir do valor que possuo no arquivo, pois pelo replace eu consigo alterar a partir do valor que já estou passando no código.

    Então pensei em substituir a linha por alguns parâmetros pré-definidos, e dentro de value colocar o strInput que o usuário digitou. Sou novata em vb e não consegui encontrar na internet.

    Essa seria a melhor forma?
    Pode me ajudar?

  4. Bom dia, Tenho um arquivo cps onde preciso copiar o valor value destas linhas: <setting name="authorization_username" value="789"/> <setting name="display_name" value="789"/> <setting name="username" value="789"/> E alterar pelo valor que o usuário insere no script. O Script que tenho é o seguinte: strInput = InputBox ("Digite seu ramal") Const FOR_READING = 1 Const FOR_WRITING = 2 Set wshShell = CreateObject( "WScript.Shell" ) strFileName = wshShell.ExpandEnvironmentStrings( "%userprofile%" ) & "\AppData\Local\CounterPath\RegNow Enhanced\default_user\settings.cps" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName, FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING) strContents = Replace(strContents, "789", strInput) objTS.WriteLine strContents objTS.Close Até então ele funciona, porém ele deve rodar com mais usuários e o valor não vai ser sempre "789", deverá ser o valor que existe dentro daquele arquivo e naquela variável. Por exemplo se value for 1000 e o usuário inserir 500, o script deverá alterar para 500. A minha dúvida é como alterar isso a partir do valor que possuo no arquivo, pois pelo replace eu consigo alterar a partir do valor que já estou passando no código. Como posso fazer isso?
×
×
  • Create New...