 |
|
||||
Você está aqui: VBA ::: Dicas & Truques ::: Arquivos e Diretórios |
Como ler o conteúdo de um arquivo texto uma linha de cada vez em VBAQuantidade de visualizações: 354 vezes |
|
Nesta dica eu mostrarei como podemos ler o conteúdo de um arquivo em VBA uma linha de cada vez. Este procedimento é muito frequente quando queremos ler o conteúdo de um arquivo e transferir as informações para uma planilha do Excel ou desenhar no AutoCAD. Veja o código VBA completo no qual abrimos um arquivo txt chamado "linguagens.txt" e exibimos o conteúdo das linhas em uma mensagem MsgBox: ----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' Macro que lê o conteúdo de um arquivo texto uma linha de cada vez
Sub LerLinhasArquivoTexto()
' variáveis usadas na resolução do problema
Dim nome_arquivo As String
Dim linha As String
Dim ident_arquivo As Integer
' caminho e nome do arquivo
nome_arquivo = "C:\\estudos_vba\\linguagens.txt"
' vamos obter o identificar único de arquivo
ident_arquivo = FreeFile
' agora abrimos o arquivo para leitura
Open nome_arquivo For Input As #ident_arquivo
' efetuamos a leitura do arquivo uma linha de cada vez
Do Until EOF(1)
' obtemos o conteúdo da linha atual
Line Input #1, linha
' e mostramos em uma mensagem MsgBox
MsgBox linha
Loop
' fechamos o arquivo
Close #ident_arquivo
End Sub
|
 Link para compartilhar na Internet ou com seus amigos: |
VBA ::: Dicas & Truques ::: Rotinas de Conversão |
Como converter números em strings em VBA usando a função CStr()Quantidade de visualizações: 405 vezes |
|
A função CStr() do VBA pode ser usada quando queremos converter valores numéricos do tipo Integer ou Double em uma string. Em geral isso é necessário quando queremos aplicar funções de strings a valores numéricos, por exemplo, testar se um determinado dígito faz parte de um número. Veja um trecho de código no qual usamos a função CStr() para converter valores Integer e Double em string e mostrar o resultado: ----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' Procedimento para converter Integer e Double em string
Sub ConverterNumeroString()
' vamos declarar duas variáveis numéricas
Dim codigo As Integer
Dim preco As Double
codigo = 58
preco = 32.15
Dim resultado As String
resultado = "O código do produto é: " + CStr(codigo) + _
" e o preço é: " + CStr(preco)
' mostramos o resultado
MsgBox resultado
End Sub
Ao executar este código VBA nós teremos o seguinte resultado: O código do produto é: 58 e o preço é: 32,15 |
VBA ::: Dicas & Truques ::: Strings e Caracteres |
Como retornar o código ASCII associado a um caractere em VBA usando a função Asc()Quantidade de visualizações: 372 vezes |
|
Em algumas situações nós precisamos retornar o código ASCII associado a um determinado caractere. Em VBA nós podemos realizar essa tarefa usando a função Asc(), que recebe uma string representando uma letra, dígito ou símbolo e retorna o código numérico correspondente. Veja um trecho de código VBA no qual informamos a letra "A" e obtemos, como retorno, o código ASCII 65: ----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' Macro VBA Excel usada para converter um caractere
' em seu código ASCII
Sub RetornarCodigoASCII()
' Variáveis usadas na resolução do problema
Dim letra As String
Dim codigo As Integer
' vamos pedir para o usuário informar um caractere
letra = InputBox("Informe um caractere: ", "Código ASCII", 0)
Debug.Print "Você informou o caractere: " & letra
' agora vamos obter o código ASCII correspondente
codigo = Asc(letra)
' e mostramos o resultado
Debug.Print "O código ASCII correspondente é: " & codigo
End Sub
Ao executarmos este código VBA nós teremos o seguinte resultado: O código ASCII correspondente é: 65 |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| Ética profissional, social, política Se a maior preocupação de Maquiavel é o Estado, poderíamos dizer que isso o situa no presente temporal. A respeito disto, afirma Sadek (1995, p. 17): "De fato, sua preocupação em todas as suas obras é o Estado. Não o melhor Estado, aquele tantas vezes imaginado, mas que nunca existiu. Mas o Estado real, capaz de impor a ordem". A partir do trecho citado, assinale a alternativa correta: A) Para Maquiavel, o tempo presente do Estado deve ser considerado pela ética. B) Para Maquiavel, a ética está associada ao exercício da ordem. C) Para Maquiavel, a ética está atrelada a uma idealização da ação na política. D) Para Maquiavel, a ordem é fruto de um Estado ético. E) Para Maquiavel, o Estado existe enquanto mantenedor da ética. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Topografia |
| Azimute e Rumo FCC-2014 - Na realização de um levantamento topográfico, foi determinado o azimute para o alinhamento 0-1, igual a 295º 32'. O rumo para este alinhamento é de: A) 25º 32'. B) 64º 28'. C) 25º 32' NW D) 64º 28' NW E) 295º 32' NW Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Python |
Qual o resultado da execução do seguinte código Python?
estados = {"SP": "SÃO PAULO", "GO": "GOIÁS",
"RJ": "RIO DE JANEIRO", "MG": "MINAS GERAIS"}
print("GO" in estados)
A) "GO" B) True C) False D) "SP", "GO", "RJ", "MG" E) "GOIÁS" Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em JavaScript |
Qual o resultado da execução do seguinte código JavaScript?document.write(0.1 + 0.2 == 0.3); A) Um erro de execução B) true C) 0.6 D) false Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais |
| Instalações prediais de combate a incêndio O fogo é fundamental para o desenvolvimento da humanidade, mas é muito danoso às edificações, visto que pode causar prejuízos financeiros e sociais. Para tanto, as edificações necessitam de instalações prediais de combate a incêndio, que são projetadas para evitar prejuízos materiais e de vida decorrentes de um incêndio na edificação. Sobre as instalações prediais de combate a incêndio, são feitas as seguintes proposições: I - Têm sistemas concebidos para preservar a vida dos ocupantes das edificações e de áreas de risco, em caso de incêndio. II - São projetadas com dispositivos que dificultam a propagação do fogo, diminuindo os prejuízos ao patrimônio e ao meio ambiente. III - São concebidas para controlar e extinguir o incêndio, bem como favorecer a entrada do corpo de bombeiros na edificação. Quais proposições estão corretas? A) I, II e III. B) I e II. C) II e III. D) I e III. E) Apenas a III. Verificar Resposta Estudar Cards Todas as Questões |
Veja mais Dicas e truques de VBA |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
