VB.NET 간단한 응용 프로그램이 여러 줄을로드하는 데 영원히 걸리는 이유

Question

몇 년 동안 기증자에서 수집 한 긴 전화 번호 목록을 별도의 지역 코드 파일로 구분하는 데 사용하는 간단한 간단한 스크립트가 있습니다.

분명히, 당신은 거의 1 백만 라인을 가지고있을 때 그것은 한참 걸릴 것입니다. 그러나 제가 1,000을 넣으면 1 초도 걸리지 않습니다. 일단 내가 100 만분의 1을 넣으면 단 5 줄만 쓰려면 10 초가 걸립니다. 어떻게 될 수 있니?

Imports System.IO 
Public Class Form1 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False 
    BackgroundWorker1.RunWorkerAsync() 
End Sub 

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
    System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False 
    Dim lines As String 
    lines = RichTextBox1.Lines.Count 
    Dim looper As String = 0 
    Dim path As String = "c:\acs\" 
    MsgBox("I have " + lines + " lines to do.") 
    If (Not System.IO.Directory.Exists(path)) Then 
     System.IO.Directory.CreateDirectory(path) 
    End If 
    Dim i As String = 0 

    For loops As Integer = 0 To RichTextBox1.Lines.Count - 1 
     Dim ac As String = RichTextBox1.Lines(looper).ToString 
     ac = ac.Substring(0, 3) 
     Dim strFile As String = path + ac + ".txt" 
     Dim sw As StreamWriter 
     sw = File.AppendText(strFile) 
     sw.WriteLine(RichTextBox1.Lines(looper)) 
     sw.Close() 
     Label1.Text = String.Format("Processing item {0} of {1}", looper, lines) 
     looper = looper + 1 
    Next 
    MsgBox("done now") 
End Sub 

Answer 1

당신이 RichTextBox.Lines 속성을 사용할 때마다 엔드 클래스, VB.Net는 CR + LF 쌍으로 컨텐츠를 분할해야합니다. 따라서 귀하의 For loops As Integer = - To RichTextBox1.Lines.Count-1은 실제로 실적이 좋습니다. 사용해보기 :

For Each vsLine As String in RichTextBox1.Lines 

대신에. 훨씬 더 빠를 것입니다. 또는 For 루프를 사용해야하는 경우 한 번 가져 오기 :

Dim vasLines() As String = RichTextBox1.Lines 
For viLines As Integer = 0 to UBound(vasLines.Count) 
    '.... 
Next 

대신에 얻을 수 있습니다.

Answer 2

먼저 For 루프에서 UI 업데이트를 수행하고 있습니다. 시간이 걸릴 것입니다.

성능에 영향을 줄 수있는 주 스레드가 아닌 스레드에서 UI를 업데이트하고 있습니다. CheckForIllegalCrossThreadCalls 메서드를 사용하면 안됩니다. BackgroundWorker의 ReportProgress 메서드를 사용하여 UI를 올바르게 업데이트해야합니다.

루프를 반복 할 때마다 파일을 열고 닫는 중입니다. 시간도 걸릴 것입니다.

더 좋은 방법은 데이터를 사전 (Of String, List Of Of String)에 추가하는 것이고 지역 코드는 키로 사용하고 목록은 해당 지역 번호의 모든 번호를 보유하는 것이라고 생각합니다. 사전이 채워지면 키를 반복하고 숫자를 써 넣으십시오.