Você está aqui: VB.NET ::: Dicas & Truques ::: Arquivos e Diretórios |
Lendo o conteúdo de um arquivo texto uma linha de cada vezQuantidade de visualizações: 20655 vezes |
'Este exemplo mostra ler o conteúdo de um arquivo 'texto uma linha de cada vez. 'Veja o link: 'http://www.recomende.com/arquivo/visualizar_dica.php?qual_dica=1508 'para mais informações sobre a classe StreamReader Imports System.IO Module Module1 Sub Main() Try 'define o diretório atual Directory.SetCurrentDirectory("c:\estudos_vb") 'cria uma instância da classe StreamReader para ler 'a partir do arquivo Dim sr As StreamReader = New StreamReader("teste.txt", _ System.Text.Encoding.Default) Dim linha As String Do 'lê uma linha de cada vez linha = sr.ReadLine() Console.WriteLine(linha) 'escreve a linha Loop Until linha Is Nothing sr.Close() 'fecha o fluxo de dados Catch e As Exception Console.Write("Erro ao ler o arquivo: ") Console.WriteLine(e.Message) End Try Console.WriteLine() Console.WriteLine("Pressione uma tecla para sair...") Console.ReadKey() End Sub End Module |
![]() |
VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como verificar se um número é par ou ímpar em VB.NETQuantidade de visualizações: 20770 vezes |
Em várias situações nós lidamos com códigos VB.NET nos quais precisamos verificar se um determinado valor é par ou ímpar. Para efetuar este teste, nós só precisamos usar o operador Mod, que retorna o resto de uma divisão envolvendo inteiros. Assim, se o resto da divisão for 0, sabemos que o número é par e, em caso contrário, será ímpar. Veja o código completo para o exemplo que lê um número e informa se ele é par ou ímpar: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim valor As Integer Console.Write("Informe um número inteiro: ") valor = Val(Console.ReadLine()) If valor Mod 2 = 0 Then Console.WriteLine("O número é par") Else Console.WriteLine("O número é ímpar") End If Console.WriteLine("\nPressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: Informe um número inteiro: 38 O número é par Pressione qualquer tecla para sair... |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como comparar strings em VB.NET usando o método Compare() da classe String do .NET FrameworkQuantidade de visualizações: 12333 vezes |
Este exemplo mostra como comparar strings em VB.NET usando o método Compare() da classe String. Lembre-se de que a versão do método que usamos neste exemplo diferencia maiúsculas de minúsculas. Veja o código completo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim palavra1, palavra2 As String palavra1 = "Visual Basic" palavra2 = "Visual Basic" If String.Compare(palavra1, palavra2) = 0 Then Console.WriteLine("As duas strings são iguais") Else Console.WriteLine("As duas strings são diferentes") End If Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: As duas strings são iguais |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como declarar e inicializar uma string em VB.NET usando o operador NewQuantidade de visualizações: 8432 vezes |
Nesta dica mostrarei como podemos usar o operador New para criar e inicializar um novo objeto da classe String em VB.NET. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' declara uma variável do tipo String Dim frase As String ' inicializa a string usando New frase = New String("Você já conhece o site Arquivo de Códigos?") ' vamos mostrar o resultado Console.WriteLine("A frase é: " & frase) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: A frase é: Você já conhece o site Arquivo de Códigos? |
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
Códigos Fonte |
![]() Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
![]() Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |
Linguagens Mais Populares |
1º lugar: Java |