→→→ProgressBar

Private Structure Info
  Public strA As String
  public strB As Long
End Structure

Private Structure Wri

  Public strW As String

  public strX As Long

End Structure

Private pInfo(1000000) As Info

Private pWri(1000000) As Wri

Private stw(22) As String

Const FileName = "D:\in.csv"

Const FileOutName = "D:\out.csv"

-----------------------------------

Private Sub Button1_Click(......

     Dim FileNum, FileOutNum As Integer

     Dim temp As Long

     Dim i, j, k, l As Long

     Dim work As String

     FileNum = FreeFile()

     FileOpen( FileNum, FileName, OpenMode.Input )

     i = 0

     Do Until EOF(FileNum)

        Input( FileNum, pInfo(i).strA )

        Input( FileNum, pInfo(i).strB )

        i += 1

    Loop 

    FileOutNum = FreeFile()

    FileOpen( FileOutNum, FileOutName, OpenMode.Output )

    ProgressBar1.Maximum = i

    ProgressBar1.Value      = 1

    ProgressBar1.Step       = 1

    For j = 1 To i - 1

       temp = pInfo(j).strB

       work = pInfo(j).strA

       l  =  j  - 1

       while temp < pInfo(l).strB

               pInfo(l + 1).strB = pInfo(l).strB

               pInfo(l + 1).strA = pInfo(l).strA

               l  =  l  - 1

               If l < 0 Then Exit While

       End While

       pInfo( l + 1 ).strB = temp

       pInfo( l + 1 ).strA = work

       ProgressBar1.PerformStep()

       StatusBar.Text = j

     Next

     ProgressBar2.Maximum = i

     ProgressBar2.Value      = 1

     ProgressBar2.Step       = 1

     For k = 0 To i - 1

          pWri(k).strW = pInfo(k).strA

          pWri(k).strX = pInfo(k).strB

          writeLine( FileOutNum, pWri(k).strW, pWri(k).strX )

          ProgressBar2.PerformStep()

          StatusBar1.Text  = k

     Next

     FileClose( FileNum ) 

     FileClose( FileOutNum )

End Sub

Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar

Friend WithEvents StatusBar1 As System.Windows.Forms.ProgressBar

Friend WithEvents StatusBar2 As System.Windows.Forms.ProgressBar