VisualBasic 2010에서 테이블을 .txt 파일로 저장

Question

프로그램 끝에 생성 된 테이블을 보려면 .txt 파일로 저장하여 나중에 다시 볼 수있는 옵션이 필요합니다. 나중의 일이지만이 일이 일어나기를 애 쓰고 있습니다.

Module Module1 
    Dim kTick As Integer 
    Dim kName(64) As String 
    Dim kHours(64) As Integer 
    Dim kHoursPay(64) As Integer 
    Dim kGross(64) As Integer 
    Dim kTax As Integer = 20 
    Dim kNet(64) As Integer 
    Dim kTotal As Integer 
    Dim kAverage As Integer 
    Sub Main() 
     'Assigning kTick (Number of employee's) 
     Assign() 
     'Imputting the data 
     Entry() 
     'Calculating kGross, kTax, kNet and kTotal 
     Print() 
    End Sub 
    Sub Assign() 
     Console.ForegroundColor = ConsoleColor.Gray 
     Console.WriteLine("Please enter the total amount of employee's:") 
     Console.ForegroundColor = ConsoleColor.White 
     kTick = Console.ReadLine() 
     Console.Clear() 
    End Sub 
    Sub Entry() 
     For kCounter = 1 To kTick 
      Console.ForegroundColor = ConsoleColor.DarkGray 
      Console.WriteLine("Employee " & kCounter) 
      Console.ForegroundColor = ConsoleColor.Gray 
      Console.WriteLine("Please enter the employee name below:") 
      Console.ForegroundColor = ConsoleColor.White 
      kName(kCounter) = Console.ReadLine() 
      Do 
       Console.ForegroundColor = ConsoleColor.Gray 
       Console.WriteLine("Please enter the employees total hours worked below:") 
       Console.ForegroundColor = ConsoleColor.White 
       kHours(kCounter) = Console.ReadLine() 
      Loop Until kHours(kCounter) >= 0 And kHours(kCounter) <= 60 
      Do 
       Console.ForegroundColor = ConsoleColor.Gray 
       Console.WriteLine("Please enter the employees Hourly Pay below:") 
       Console.ForegroundColor = ConsoleColor.White 
       kHoursPay(kCounter) = Console.ReadLine() 
      Loop Until kHoursPay(kCounter) >= 6 And kHoursPay(kCounter) <= 250 
      Console.Clear() 
     Next 
    End Sub 
    Sub Print() 
     For kCounter = 1 To kTick 
      kGross(kCounter) = kHours(kCounter) * kHoursPay(kCounter) 
     Next 
     For kCounter = 1 To kTick 
      kNet(kCounter) = (kGross(kCounter)/10) * 8 
     Next 
     For kCounter = 1 To kTick 
      kTotal = kTotal + kHours(kCounter) 
     Next 
     kAverage = kTotal/kTick 
     Console.ForegroundColor = ConsoleColor.Gray 
     Console.WriteLine("Name" & vbTab & "Hours" & vbTab & "Hourly Rate" & vbTab & "Gross Pay" & vbTab & "Tax" & vbTab & "Net Pay") 
     Console.ForegroundColor = ConsoleColor.White 
     For kCounter = 1 To kTick 
      Console.WriteLine(kName(kCounter) & vbTab & kHours(kCounter) & vbTab & "£" & kHoursPay(kCounter) & vbTab & vbTab & "£" & kGross(kCounter) & vbTab & vbTab & kTax & "%" & vbTab & "£" & kNet(kCounter)) 
     Next 
     Console.ForegroundColor = ConsoleColor.Gray 
     Console.WriteLine("Total hours worked: " & kTotal) 
     Console.WriteLine("Total average hours worked: " & kAverage) 
     Console.WriteLine("Total number of employees: " & kTick) 
     Console.ReadLine() 
     Save() 
    End Sub 
    Sub Save() 

    End Sub 
End Module 

세이브 루틴에서 코드를 얻으려고하는데 도움이 될 것입니다!

감사 카이

Answer 1

당신은 StreamWriter 클래스를 찾고 있습니다. 그것은 당신을 도울 수 Write 및 WriteLine 방법이 있습니다. 사용중인 Console.WriteLine과 동일한 방식으로 작동합니다.

Answer 2

하나의 메모 : Save부터 Print까지 두 가지 모두 자연과 관련이 없으므로 사용하면 안됩니다. 따라서 저장하지 않고 인쇄하거나 콘솔에 인쇄하지 않고 저장할 수도 있습니다.

간단한 접근 방식은 예를 들어 File.WriteAllText(path) 또는 File.WriteAllLines(path)을 사용하여 File 클래스를 사용합니다. 그러므로 출력하고자하는 텍스트를 콘솔과 파일에 저장해야합니다. 예 : List(Of String) 변수입니다.