vb.net 파일 및 기타 문제 저장 /로드

Question

연락처 및 연락처 정보를 저장하는 데 사용할 수있는 간단한 프로그램을 만들고 있습니다. 기능을 저장 /로드하고 총계가 개의 연락처가 삽입 된 문제가 있습니다. 대부분의 코드는 "TheNewBoston"자습서에서 가져온 것입니다. 이후에 더 많은 기능을 추가하려고합니다. 여기에 소스 코드 :

Public Class Form1 

    Dim myCustomers As New ArrayList 
    Dim FILE_NAME As String = "C:\test.txt" 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     AddCustomer("Sam", "Bond", "sambond@msn.com", "9541032163") 
     AddCustomer("Merry", "Jackson", "merryjackson@msn.com", "8872101103") 
     AddCustomer("Rachel", "Smith", "rachelsmith@msn.com", "4839078565") 
     'DOESN'T WORK'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
     If System.IO.File.Exists(FILE_NAME) = True Then 
      'AddCustomer.System.IO.StreamReader(FILE_NAME) 
      'or 
      AddCustomer(System.IO.StreamReader(FILE_NAME)) 
     Else 
      MessageBox.Show("File does not exist.") 
     End If 
    End Sub 

    'Public variables 
    Private Structure Customer 
     Public FirstName As String 
     Public LastName As String 
     Public Email As String 
     Public Phone As Decimal 

     'Does Name = First&Last Name 
     Public ReadOnly Property Name() As String 
      Get 
       Return FirstName & " " & LastName 
      End Get 
     End Property 

     'Shows the customers in the listbox properly overriding the default ToString function 
     Public Overrides Function ToString() As String 
      Return Name 
     End Function 

    End Structure 

    'Declaring and connecting to type Customer 
    Private objCustomer As Customer 
    Private objNewCustomer As Customer 

    'Makes customer format 
    Private Sub AddCustomer(ByVal firstName As String, ByVal lastName As String, ByVal email As String, ByVal phone As Decimal) 
     'declares objNewCustomer with the type of customer for use 
     Dim objNewCustomer As Customer 

     'Connects the Customer's 4 things to objNewCustomer 
     objNewCustomer.FirstName = firstName 
     objNewCustomer.LastName = lastName 
     objNewCustomer.Email = email 
     objNewCustomer.Phone = phone 

     'Adds to myCustomers array list the objNewCustomer 
     myCustomers.Add(objNewCustomer) 
     'Adds customer Name to list 
     listCustomers.Items.Add(objNewCustomer.ToString()) 
    End Sub 

    'Avoids customer select error 
    Private ReadOnly Property SelectedCustomer() As Customer 
     Get 
      If listCustomers.SelectedIndex <> -1 Then 
       Return CType(myCustomers(listCustomers.SelectedIndex), Customer) 
      End If 
     End Get 
    End Property 

    'Enables select customer 
    Private Sub listCustomers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listCustomers.SelectedIndexChanged 
     DisplayCustomer(SelectedCustomer) 
    End Sub 


    'Loads the customers' information 
    Private Sub DisplayCustomer(ByVal cust As Customer) 
     txtName.Text = cust.Name 
     txtFirstName.Text = cust.FirstName 
     txtLastName.Text = cust.LastName 
     txtEmail.Text = cust.Email 
     txtPhone.Text = cust.Phone 
    End Sub 


    'Add User (pops up new window) 
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click 
     Form2.Show() 
     'System.IO.File.WriteAllText("C:\test.txt", Textbox1.Text) 
    End Sub 

    'WORKS 
    Private Sub btnTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTotal.Click 
     txtTotal.Text = myCustomers.Count.ToString() 
    End Sub 

    'Private Total2 As Integer 
    'experimenting 
    'Private Sub DisTotal(ByVal Total As Integer) 
    ' Do 
    '  'total2 = myCustomers.Count.ToString() 
    '  'txtTotal.Text = total2 
    '  txtTotal.Text = Total 
    '  System.Threading.Thread.Sleep(5000) 
    ' Loop 
    'End Sub 

    Private Sub listTotal_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     Total = myCustomers.Count 
     'DOESN'T WORK'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
     Do 
      'total2 = myCustomers.Count.ToString() 
      'txtTotal.Text = total2 
      txtTotal.Text = myCustomers.Count.ToString() 
      System.Threading.Thread.Sleep(5000) 
     Loop 
    End Sub 

    Private Total As Integer 
    'DOESN'T WORK'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 
     Dim writer As New IO.StreamWriter(FILE_NAME) 

     Try 
      writer.Write("") 
      writer.Close() 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     Finally 
      writer.Close() 
     End Try 
    End Sub End Class 

어떤 도움/힌트가 감사하고 코드 블록을 수정 게시 할 경우에도 그것이 어떻게 작동하는지 설명해주십시오 /도 무엇이 잘못된 것인지, 감사합니다.

Answer 1

AddCustomer 함수의 인수로 스트림 판독기를 사용하려고합니다. 작동하지 않습니다. 사실, 당신은 당신이 전혀를 선언하는 방식으로 StreamReader을 사용할 수 없습니다 - 당신은이 같은 하나의 인스턴스를 가지고 등등

Dim sr as New StreamReader 
Dim line as String 
line = sr.ReadLine() 

하고 있습니다. 자세한 내용은 documentation을 참조하십시오. 어떤 경우

,이 같은 예를 들어, 쉼표로 구분 된 파일에서 고객 데이터를 읽으려고하는 경우 :

C : \ test.text --- 포함

Sam, Bond, sambond@msn.com, 9541032163 
Merry, Jackson, merryjackson@msn.com, 8872101103 
Rachel, Smith, rachelsmith@msn.com, 4839078565 

그런 다음에 값을 읽기 위해이 같이해야 할 것이다 - 우리는 함수를 선언하는 방식에 AddCustomer에 인수를 전달할 필요가 있습니다 (예 :! 네 개의 문자열) :

If System.IO.File.Exists(FILE_NAME) Then 
    'Using creates an instance and disposes it for you when you leave the block 
    Using Rdr As New Microsoft.VisualBasic.FileIO.TextFieldParser(FILE_NAME) 
     'Indicates the values are delimited (separated by a special character) 
     Rdr.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited 
     'Defines the array of special characters that separate fields 
     Rdr.Delimiters = New String() {","} 
     'Declare a string array to hold the data from each line 
     Dim currentRow As String() 
     'Read lines until you reach the end of the file 
     While (Not Rdr.EndOfData) 
      'For each line, read and parse the data 
      currentRow = Rdr.ReadFields() 
      'Data are stored with zero-based index 
      Dim firstName As String = currentRow(0) 
      Dim lastName As String = currentRow(1) 
      Dim emailAdd As String = currentRow(2) 
      Dim phNum As String = currentRow(3) 
      AddCustomer(firstName, lastName, emailAdd, phNum) 
     End While 
    End Using 
Else 
    MessageBox.Show("File does not exist.") 
End If 

텍스트 필드 구문 분석기는 문자열 배열을 읽고 값을 자동으로 배열 열로 구분합니다. 데이터가 다음 분리 TAB 경우 당신은 단순히

Rdr.Delimiters = New String() {"vbTab"} 

이것은 당신도 등 공백, 탭, 쉼표,의 혼합을 할 수 있도록 배열 매개 변수입니다 단지에 추가로로 구분 기호를 바꿀 것 목록은 Rdr.Delimiters = New String() {"vbTab", " ", ","}입니다.

텍스트 필드 구문 분석기를 사용하면 탭이나 쉼표로 구분 된 값을 Excel과 같은 것으로 생성 된 것으로 읽을 수 있기 때문에 유용합니다. 위의 코드에서 예외 처리를 보여주지 않았 음을 유의하십시오. 그것은 파일이 올바르게 포맷되지 않은 경우 블록을 제외/시도에 그 부분의 몇 가지를 포장하는 아마 신중, 읽을 수없는 등

참조 : 자세한 내용은 TextFieldParser (MSDN)

편집

나는이 질문의 두 번째 부분을 놓친 참조하십시오. 첫째, 당신의 고객 목록

Dim myCustomers As New List(Of Customer) 

이 많은 이유 훨씬 좋네요 대한 제네릭을 사용하여 제안 (대한 추가 정보를 원하시면 제네릭/컬렉션에 읽어). 가장 중요한 점은 유형 안전입니다. 또한 검색 및 정렬 등의 측면에서 많은 이점을 얻을 수 있습니다.루프에 관해서는

:

Do 
    'total2 = myCustomers.Count.ToString() 
    'txtTotal.Text = total2 
    txtTotal.Text = myCustomers.Count.ToString() 
    System.Threading.Thread.Sleep(5000) 
Loop 

이 종료하지 않습니다 (거기 Do 부분에 아무런 조건이없는, 그래서 영원히 반복에 계속됩니다!). 일반적으로 Do 루프는 귀하의 케이스는 끝이 없을 것입니다에서

Do while x < 10 
    x = x + 1 
    DoSomething() 
Loop 

같이 수행됩니다. Sleep에 대한 호출도 완전히 필요하지 않습니다. 결코 UI 스레드를 잠자 지 마셔야합니다! 여기에서해야 할 일은 다음과 같습니다.

txtTotal.Text = myCustomers.Count.ToString() 

아니요, 아니요/반복, 잠이 없습니다. 작업 완료.

다음을 참조하십시오.