VB.Netでソート2 [.NET]

| コメント(0) | トラックバック(0)

前回 に引き続き、もういっちょソートネタ

Option Explicit On

Imports System.Data
Imports System.Data.SQLite

Module Program
  Sub Sort(elm() As Integer)
    Dim builder As New SQLiteConnectionStringBuilder
    builder.DataSource = ":memory:"
    Dim conn As New SQLiteConnection
    conn.ConnectionString = builder.ConnectionString
    conn.Open()
    Using conn
      Using comm1 As New SQLiteCommand("CREATE TABLE TMP (N NUMBER)", conn)
        comm1.ExecuteNonQuery
      End Using
      Using comm2 As New SQLiteCommand("INSERT INTO TMP (N) VALUES (?)", conn)
        For Each e As Integer In elm
          Dim param2 As New SQLiteParameter("N", e)
          comm2.Parameters.Clear
          comm2.Parameters.Add(param2)
          comm2.ExecuteNonQuery
        Next
      End Using
      Using comm3 As New SQLiteCommand("SELECT N FROM TMP ORDER BY N", conn)
        Dim idx As Integer = 0
        Using er As SQLiteDataReader = comm3.ExecuteReader()
          While er.Read()
            elm(idx) = er.GetInt32(0)
            idx = idx + 1
          End While
        End Using
      End Using
    End Using
  End Sub
  
  Sub Main()
    Dim elm() As Integer = { 3, 1, 4, 1, 4, 9, 10, 99, 123, -4 }
    
    For Each e As Integer In elm
       Console.WriteLine(e)
    Next
    
    Sort(elm)

    Console.WriteLine("sorted")

    For Each e As Integer In elm
      Console.WriteLine(e)
    Next
    
    Console.Write("Press any key to continue . . . ")
    Console.ReadKey(True)
  End Sub
End Module

参考:SQLiteを.NETで弄る

Sortサブルーチンを挿げ替えてみました。

トラックバック(0)

トラックバックURL: http://floralcompany.jp/mt/mt-tb.cgi/154

コメントする

AUTHOR

  • turugina (虎王 剱奈)
  • E-mail: turugina {at} floralcompany.jp
  • pixiv
  • ニジエ

2014年5月

        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

アーカイブ

OpenID対応しています OpenIDについて
Powered by Movable Type 5.2.10

- 警 告 -

本サイトにはいわゆる「18禁画像」(イラスト)へのリンクが存在します。 未成年の方や、その手の画像に不快感を覚える方は、 該当記事(「えちぃの」及び「ちょっとえちぃの」カテゴリ) をご覧にならないようお願いいたします。

上記を理解した上で非表示のブログパーツを表示する
あわせて読みたいブログパーツ
ついった
drawr/pixiv/twitpic