Archivos en Visual Basic

Escribir, agregar al final, leer por streaming y borrar con System.IO.

Imports System.IO

Dim target = Path.Combine(Path.GetTempPath(), "typestar_notes.txt")
File.WriteAllLines(target, {"first line", "second line"})
File.AppendAllText(target, "third line" & Environment.NewLine)

For Each line In File.ReadLines(target)
    Console.WriteLine($"> {line}")
Next

Console.WriteLine($"bytes on disk: {New FileInfo(target).Length}")
File.Delete(target)
Console.WriteLine($"still there: {File.Exists(target)}")

Cómo funciona

1. Path.Combine arma la ruta del archivo temporal de forma portable.
2. WriteAllLines crea; AppendAllText extiende sin pisar lo anterior.
3. File.ReadLines lee en streaming perezoso — sin arreglo del archivo entero.
4. FileInfo reporta el tamaño; Delete y Exists cierran el ciclo.

Palabras clave y builtins usados aquí

• Dim
• Each
• For
• Imports
• Next

El intento, en números

Líneas

13

Caracteres a escribir

429

Tokens

95

Ritmo de tres estrellas

85 tpm

Al ritmo de tres estrellas de 85 tokens por minuto, este intento toma unos 67 segundos.

Escribe este fragmento

Paso 1 de 3 en Archivos y errores; paso 25 de 29 en Fundamentos del lenguaje.

← Anterior Siguiente →