[使用vb.net在txt文件中按日期排序

Question

我制作了一个程序，该程序从IMDB api获取发布日期和标题，并将它们保存在.txt文件中...我可以通过某种方式按日期排序它们

<< img src =“ https://image.soinside.com/eyJ1cmwiOiAiaHR0cHM6Ly9pLnN0YWNrLmltZ3VyLmNvbS9NZHpUdy5wbmcifQ==” alt =“在此处输入图像说明”>“ >>

Imports System.IO
Imports System.Xml.Linq
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim _reg As Regex = New Regex("http://www.imdb.com/title/([A-Za-z0-9\-]+)/*?", _
              RegexOptions.IgnoreCase)

        Dim value As String = TextBox1.Text

        Dim m As Match = _reg.Match(value)

        If (m.Success) Then
            Dim key As String = m.Groups(1).Value
            Dim url As String = "http://mymovieapi.com/?id=" + key + "&type=xml&plot=none&episode=0&lang=en-US&aka=simple&release=simple&business=0&tech=0"
            Dim Document As XDocument = XDocument.Load(url)
            Dim title = Document.Root.Element("title").Value()
            Dim releaseDate = Date.ParseExact(Document.Root.Element("release_date").Value,
                  "yyyyMMdd", System.Globalization.CultureInfo.InstalledUICulture)
            TextBox2.Text = "Release Date: " & releaseDate & "  /   Title: " & title
        Else : TextBox2.Text = "Please use IMDB links"
        End If
        Button2.Enabled = True
    End Sub


    Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim Writer As System.IO.StreamWriter
        Writer = New System.IO.StreamWriter("C:\Users\Azer\Documents\Movies.txt", True)
        Writer.Write(TextBox2.Text & vbCrLf)
        Writer.Close()
        Button2.Enabled = False
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim Reader As System.IO.StreamReader
        Reader = New System.IO.StreamReader("C:\Users\Azer\Documents\Movies.txt")
        Dim tempstring As String
        Do
            tempstring = Reader.ReadLine()
            TextBox3.Text = TextBox3.Text + tempstring + vbCrLf
        Loop Until tempstring = ""
        Reader.Close()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        TextBox3.Clear()
    End Sub
End Class

我制作了一个程序，该程序从IMDB api获取发布日期和标题，并将它们保存在.txt文件中...我可以按某种日期按日期排序它们。Imports System.IO Imports System.Xml.Linq Imports System.Text.。 ..

Answer 1

正如David所说，数据库将使这变得容易得多。但是，如果您不能使用数据库（或有其他原因这样做），这是一种处理数据库的方法。

Answer 2

Dim allLines As String() = File.ReadAllLines("your file name")
System.Array.Sort(allLines)
IO.File.WriteAllLines("your file name", allLines) 'assuming you want to write the file