Fayllar va JSON

Imports System.IO

Module Dastur
    Sub Main()
        Dim yol As String = "qaydlar.txt"

        File.WriteAllText(yol, "Birinchi qator" & Environment.NewLine &
                               "Ikkinchi qator")

        Dim matn As String = File.ReadAllText(yol)
        Console.WriteLine(matn)

        File.Delete(yol)
        Console.WriteLine(File.Exists(yol))
    End Sub
End Module

Imports System.IO

Module Dastur
    Sub Main()
        Dim yol As String = "talabalar.txt"
        Dim royxat() As String = {"Malika", "Husanboy", "Nodira", "Aziza"}

        File.WriteAllLines(yol, royxat)

        Dim oqilgan() As String = File.ReadAllLines(yol)
        Console.WriteLine($"Jami: {oqilgan.Length}")

        For i As Integer = 0 To oqilgan.Length - 1
            Console.WriteLine($"{i + 1}. {oqilgan(i)}")
        Next

        File.Delete(yol)
    End Sub
End Module

Imports System.IO

Module Dastur
    Sub Main()
        Dim yol As String = "sonlar.txt"

        Using yozuvchi As New StreamWriter(yol)
            For i As Integer = 1 To 5
                yozuvchi.WriteLine($"Qator {i}")
            Next
        End Using

        Dim jami As Integer = 0
        Using oquvchi As New StreamReader(yol)
            Dim qator As String = oquvchi.ReadLine()
            While qator IsNot Nothing
                jami += 1
                qator = oquvchi.ReadLine()
            End While
        End Using

        Console.WriteLine($"O'qilgan qatorlar: {jami}")
        File.Delete(yol)
    End Sub
End Module

Imports System.IO

Module Dastur
    Sub Main()
        Dim papka As String = "hujjatlar"
        Dim fayl As String = "hisobot.txt"

        Dim toliq As String = Path.Combine(papka, fayl)
        Console.WriteLine(toliq.Replace("\", "/"))

        Console.WriteLine(Path.GetFileName(toliq))
        Console.WriteLine(Path.GetExtension(toliq))
        Console.WriteLine(Path.GetFileNameWithoutExtension(toliq))
    End Sub
End Module

Imports System.IO

Module Dastur
    Sub Main()
        Dim papka As String = "sinov_papka"

        Directory.CreateDirectory(papka)
        Console.WriteLine(Directory.Exists(papka))

        File.WriteAllText(Path.Combine(papka, "a.txt"), "A")
        File.WriteAllText(Path.Combine(papka, "b.txt"), "B")

        Dim fayllar() As String = Directory.GetFiles(papka)
        Console.WriteLine($"Fayllar soni: {fayllar.Length}")

        For Each f As String In fayllar.OrderBy(Function(x) x)
            Console.WriteLine(Path.GetFileName(f))
        Next

        Directory.Delete(papka, True)
        Console.WriteLine(Directory.Exists(papka))
    End Sub
End Module

Imports System.Text.Json

Public Class Talaba
    Public Property Ism As String
    Public Property Yosh As Integer
    Public Property Ball As Integer
End Class

Module Dastur
    Sub Main()
        Dim t As New Talaba With {.Ism = "Malika", .Yosh = 22, .Ball = 88}

        Dim json As String = JsonSerializer.Serialize(t)
        Console.WriteLine(json)

        Dim qayta As Talaba = JsonSerializer.Deserialize(Of Talaba)(json)
        Console.WriteLine($"{qayta.Ism} - {qayta.Ball}")
    End Sub
End Module

Imports System.Text.Json

Public Class Talaba
    Public Property Ism As String
    Public Property Ball As Integer
End Class

Module Dastur
    Sub Main()
        Dim royxat As New List(Of Talaba) From {
            New Talaba With {.Ism = "Malika", .Ball = 88},
            New Talaba With {.Ism = "Husanboy", .Ball = 92}
        }

        Dim sozlama As New JsonSerializerOptions With {.WriteIndented = True}
        Dim json As String = JsonSerializer.Serialize(royxat, sozlama)
        Console.WriteLine(json)

        Dim qayta As List(Of Talaba) =
            JsonSerializer.Deserialize(Of List(Of Talaba))(json)
        Console.WriteLine($"Qayta o'qildi: {qayta.Count} ta")
        Console.WriteLine(qayta(1).Ism)
    End Sub
End Module

Imports System.IO
Imports System.Text.Json

Public Class Sozlama
    Public Property Til As String
    Public Property Mavzu As String
    Public Property AvtoSaqlash As Boolean
End Class

Module Dastur
    Sub Main()
        Dim yol As String = "sozlama.json"

        Dim s As New Sozlama With {
            .Til = "uz", .Mavzu = "tungi", .AvtoSaqlash = True
        }

        File.WriteAllText(yol, JsonSerializer.Serialize(s))

        Dim oqilgan As Sozlama =
            JsonSerializer.Deserialize(Of Sozlama)(File.ReadAllText(yol))

        Console.WriteLine($"Til: {oqilgan.Til}")
        Console.WriteLine($"Mavzu: {oqilgan.Mavzu}")
        Console.WriteLine($"Avto saqlash: {oqilgan.AvtoSaqlash}")

        File.Delete(yol)
    End Sub
End Module