[操作疑難] 學生project...Visual Basic一問 真心求救/_\

hugo洛

小弟用window form
要將一個記事本既內容 放入去
d內容有分 班別 學號 人名  用逗號分開
6a,10,陳大文 <--咁樣
e+就希望可以比人淨係打個班別學號  而人名就係textbox自動顯示出黎

我諗左好耐 都係唔知點樣可以將記事本既內容變做陣列...
我呀sir 教我用 x = infile.readline.Split(",")
                    ListBox1.Items.Add("Class = " & x(1))
咁印野出黎....
但我試黎試去  都只係印到一行....就係 6a,10,陳大文果行
之後果d   6a,11,陳中文

              6a,12,陳小文
就印唔到
同埋變唔到陣列都係用唔到對分檢索,線性檢索果d方法
-------------------------------------------------------------------------------------------------------------
有第二個問題... 第二個問題唔關份project事   純粹好奇想知答案
    Sub Main()
        Randomize()
        Dim rn As Integer
        Dim n1, n2, n3 As String
        rn = Int(Rnd() * 10 + 1)
        Console.WriteLine(rn)

        If rn <= 2 Then
            n2 = "Tim"
        ElseIf rn = 3 Then
            n2 = "Hugo"
        ElseIf rn = 4 Or 5 Then
            n2 = "Wong"

        ElseIf rn = 6 Or 7 Then
            n2 = "D"

        ElseIf rn = 8 Or 9 Then
            n2 = "B"

        Else
            n2 = "Q"
        End If
        Console.WriteLine(n2)
    End Sub
點解就算rn 係 6,7,8,9,10 都好
都會卡係個wong到?   我唔明用or有咩錯

55665

用loop.........

hugo洛

用loop.........
55665 發表於 2013-10-23 22:21

    我目的唔係淨係印哂出黎
係希望可以淨係靠班別學號就自動搵埋個名出黎...
不過都唔該哂ching  起碼我都有d進展...

KinChungE

我目的唔係淨係印哂出黎
係希望可以淨係靠班別學號就自動搵埋個名出黎...
不過都唔該哂ching ...
hugo洛 發表於 2013-10-23 22:29

for loop哂成個array
array入面用if

shingzhk

先將你要做既野分開諗做function, 逐part 都證到自己識寫先砌埋吧
一般黎講:
首先read哂成個txt 做array,  直接搵個text BOX show 返confirm 自己冇入錯位
寫個loop, 掃哂成個array, 搵到的話return axis
用return 返黎既axis 放入name array, get name => 收工

hugo洛

for loop哂成個array
array入面用if
KinChungE 發表於 2013-10-23 23:16

我用平時教整ARRAY既方法用落記事本度...
佢有話我error

gh0st

Dim mystr As String
        Dim str1(2) As String
        TextBox1.Text = "沒有找到相關資料!"
        FileOpen(1, "C:\data.txt", OpenMode.Input)
        Do Until EOF(1)
            mystr = LineInput(1)
            str1 = Split(mystr, ",")
            If str1(0) = TextBox2.Text And str1(1) = TextBox3.Text Then TextBox1.Text = str1(2)
        Loop
        FileClose()

咁樣?
textbox1 = result
textbox2 = 要搵既class
textbox3 = 要搵既class no.

hugo洛

Dim mystr As String
        Dim line As Integer = 0
        Dim str1(2) As String
        TextBox1.T ...
gh0st 發表於 2013-10-24 20:46

    好勁/口\
我就係想咁做...  但係真係太複雜.
好多語法都未見過又未教過...我都係放棄咁做啦= =
不過真係唔該哂你

gh0st

回復 8# hugo洛


    你將佢放曬入db咪易搞
直接用SQL查詢就可以拎到data出黎

hugo洛

回復  hugo洛


    你將佢放曬入db咪易搞
直接用SQL查詢就可以拎到data出黎
gh0st 發表於 2013-10-24 20:59

    完全唔知咩黎
我自己諗下方法算.....諗唔到即係代表我能力問題了...
想唔服輸都唔得   唔該你