Respostas interessantes marcadas com a tag

6 votos

Criar e manipular array com asp classic

Para usar chaves e valores em ASP Clássico você tem o Dictionary: Set registro = Server.CreateObject("Scripting.Dictionary") registro.Add "codigo", "12233" registro.Add "municipio", "santo olavo" ... ...
  • 93,7mil
3 votos
Aceito

Abrir planilha Excel e copiar os Dados em VBS

Tente isso: Path = "C:\Users\user_name\Documents\excell\planilha1.xlsx" Set objexl = CreateObject("Excel.application") objexl.Visible = True Set objwkb = objexl.Workbooks.Open(Path) Set objsht = ...
3 votos
Aceito

Passar Paramento com Apas Duplas VBS

Com duas aspas duplas, isso vai escapar as aspas e gerar o valor como "args.ext". Atalho.Arguments = """args.ext"""
  • 69,2mil
2 votos
Aceito

Separar todos os itens de uma string

Dim bar() As String Dim foo() As String Dim i As Byte bar = Split("Nome|1,2,3,4,5,6,7,8,9|59000|50%", "|") foo = Split(bar(1), ",") For i = LBound(foo) To UBound(foo) Debug.Print foo(i) Next i
2 votos

Compilar string como um código

Se você quiser executar uma instrução que não retorna um valor, use Execute, exemplo: Option Explicit Dim mensagem Dim codigo mensagem = "Oi!!!" codigo = "MsgBox mensagem" Execute codigo Se o seu ...
  • 1.915
2 votos
Aceito

Script de instalação automática sem interação do usuário

Consegui usando esse script em vbs: On error resume next Dim WshShell, fso Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") WshShell.Run ...
2 votos

Criar e manipular array com asp classic

Pode ser utilizado o ASP Dictionary Object, o exemplo abaixo: <% '//Criando o dicionário Dim d Set d = CreateObject("Scripting.Dictionary") '//Adicionando os itens d.Add "re","...
  • 36,5mil
2 votos

SAP pegar o valor text

Use: getcellvalue Ficaria assim: session.findById("wnd[0]/usr/cntlALV_RECEBE/shellcont/shell").getcellvalue(0,"QTDPEC") Até.
1 voto

VBScritp esperar um processo finalizar e começar outro sem Sleep

Use o método "Run" do Objeto Shell, com as propriedades ajustadas de acordo. Veja o código abaixo: CreateObject("Wscript.Shell").Run """C:\Program Files\ABC\abc.xex&...
  • 121
1 voto
Aceito

Como pegar o serial do monitor via código

No Windows, recomendaria você a buscar essa informação utilizando wmi. Importe a referencia abaixo: Imports System.Management E busque o dado do serial utilizando a tabela WMIMonitorID: Dim ...
1 voto
Aceito

Bloco "If <condition> Then" não faz sentido

Isso é igual em qualquer linguagem, está verificando se 1 é igual a 2, o que obviamente é falso e fará o If ser falso já que as outras condições estão ligadas por um And. Então provavelmente foi uma ...
  • 475mil
1 voto
Aceito

Listar impressoras do print server instaladas de uma estação remota

Na verdade, o que você realiza é o mapeamento de uma impressora de rede no perfil do usuário. Isto não é bem uma instalação. Chamamos isso de capturar a fila da impressora disponibilizada em servidor. ...
1 voto

Retornar mensagem unica após 5 repetições de comando

Uma das maneiras é criar uma variável para ir armazenando os nomes que são ou não válidos através do seu método ChecaUser e depois é só mostrar no MsgBox essa variável. Ex: Dim UserName Dim UserPass ...
  • 1.867
1 voto
Aceito

Formatação Cint em ASP Clássico

O problema é que você está usando uma sintaxe inválida para a função formatnumber. O que voce tem que fazer é adicionar uma função PAD assim: Function PadDigits(val, digits) PadDigits = Right(...
1 voto

Editar linhas em vbscript

Script vbs: Dim arq Dim obj Set obj = CreateObject("Scripting.FileSystemObject") Set arq = obj.OpenTextFile(WScript.Arguments(0), 1) Dim texto Dim conteudo Dim tamanho texto = arq.ReadAll arq....
1 voto
Aceito

Formato da data e hora na conversão xls/csv

Antes de oBook.SaveAs dest_file, 3 faça assim: oBook.Worksheets(0) _ .Columns("letra da coluna que tem a data/hora a mudar") _ .NumberFormat = "dd-MM-yyyy hh:mm"
1 voto
Aceito

Como fazer a stream de um arquivo do meu servidor?

Simples: /project txt_edit.php text.txt Código-txt_edit.php: if(isset($_POST['text'])){ $re = fopen("text.txt" , 'w'); $write = fwrite($re ,$_POST['text']); if($write){ ...
1 voto

Como fazer a stream de um arquivo do meu servidor?

Com php você pode usar o fopen $arquivo = "bots.txt"; fopen($arquivo, "r+"); // abre o arquivo para leitura e escrita $linhas = ""; while(!feof($arquivo)){ $linhas .= fgets($arquivo, 1024)."\n"; /...
1 voto

SQL - consulta registros Verdadeiros ou Falsos

O correto na sua sql seria: Select * from Usuarios WHERE [user-block]=true order by NOME asc simplesmente por causa do traço (-) você tem que colocar colchetes ([ e ]), e não seria muito legal fazer ...
  • 36,5mil

Only top scored, non community-wiki answers of a minimum length are eligible