none
关于读取文本到数组,再显示输出的方法 RRS feed

  • 问题

  • 各位,我实在没有头绪,完全没有头绪。虽然是一个很简单的问题。

    现在的情况是,需要把如下面的格式的文本内容放到四个不同的数组里面。用数组分类计算,(计算部分就不劳烦大家了。)

    然后再屏幕上按住照文本的格式显示出来(不知道用什么控件显示比较好,textbox控件行么?)

    数组分别对应为:F(), RL() , SWR() , R() , JX()。文本格式如下:

    2400       -18.6     1.265     1.219     0.140
    2405       -19.4     1.239     1.239     -0.00
    2410       -19.6     1.232     1.176     -0.14
    2415       -19.3     1.240     1.061     -0.21
    2420       -18.5     1.266     0.939     -0.22
    2425       -17.4     1.311     0.833     -0.18
    2430       -16.2     1.365     0.752     -0.11

     

    希望能把代码详细一点,我本来用的是vb6.0.因为刚刚接触vb2008,所以一些赋值之类的操作不是很熟练。谢谢各位了。

    2011年8月5日 7:33

答案

  • 您好

    參考以下代碼

        Dim F As New List(Of Double)()
        Dim RL As New List(Of Double)()
        Dim SWR As New List(Of Double)()
        Dim R As New List(Of Double)()
        Dim JX As New List(Of Double)()
        Using sr As New StreamReader("Text.txt")
          Dim line As String
          ' Read and display lines from the file until the end of
          ' the file is reached.
          Do
            line = sr.ReadLine()
            If String.IsNullOrEmpty(line) = False Then
              Dim tmp = line.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
              F.Add(Double.Parse(tmp(0)))
              RL.Add(Double.Parse(tmp(1)))
              SWR.Add(Double.Parse(tmp(2)))
              R.Add(Double.Parse(tmp(3)))
              JX.Add(Double.Parse(tmp(4)))
            End If
          Loop Until line Is Nothing
        End Using
    

     


    歡迎參觀我的Blog.NET菜鳥自救會
    • 已标记为答案 abcsai 2011年8月5日 10:54
    2011年8月5日 9:58

全部回复

  • 您好

    參考以下代碼

        Dim F As New List(Of Double)()
        Dim RL As New List(Of Double)()
        Dim SWR As New List(Of Double)()
        Dim R As New List(Of Double)()
        Dim JX As New List(Of Double)()
        Using sr As New StreamReader("Text.txt")
          Dim line As String
          ' Read and display lines from the file until the end of
          ' the file is reached.
          Do
            line = sr.ReadLine()
            If String.IsNullOrEmpty(line) = False Then
              Dim tmp = line.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
              F.Add(Double.Parse(tmp(0)))
              RL.Add(Double.Parse(tmp(1)))
              SWR.Add(Double.Parse(tmp(2)))
              R.Add(Double.Parse(tmp(3)))
              JX.Add(Double.Parse(tmp(4)))
            End If
          Loop Until line Is Nothing
        End Using
    

     


    歡迎參觀我的Blog.NET菜鳥自救會
    • 已标记为答案 abcsai 2011年8月5日 10:54
    2011年8月5日 9:58
  • 實在是太感謝您了 小歐ou 老師,成功把文本輸入到五個數組了。能告訴我那五個數組定義是什麽類型的嗎?還有我是不是應該用textbox控件輸出數組計算結果呢?但是textbox的text屬性只能更改一次,如果用循環輸出數組好像不能實現。

    再次對您的解答表達我的感謝,謝謝您。


    2011年8月5日 10:54
  • 我也不懂


    "欢迎大家一起讨论" http://www.xuyinet.tk
    2011年8月16日 4:15