Re: [VB6 ] 迴圈計次的問題...
※ 引述《KentII (go let it out...)》之銘言：
: Input #2, word(i)
改成Line Input #2, word(i)
: For i = 1 To arrlen - 1
: A = 0
: B = 0
多寫一個變數 flag=0
: For j = 1 To arrlen - 1
: If word(i) = word(j) And docid(i) = docid(j) Then
: A = A + 1
: End If
: If word(i) = word(j) And docid(i) <> docid(j) Then--->"錯了"
: B = B + 1
: End If
建議以上三行改為
If word(i) = word(j) And docid(j) <> flag Then
b = b + 1
flag = docid(j)
End If
: Next j
: Print #F, word(i), A, B
: Next i
: Close #F
: -----------------------------------------------------------------
: 結果A值可以算出來，但是B值就會出錯（我知道邏輯哪裡錯了）
確實是邏輯錯了，原本的做法會少算到同一個檔案出現的那一次
而不同檔案出現兩次，Ｂ值會重複計算
好久沒有用vb6.... 這樣應該就可以了
--
原po是歪歐巴桑。三十幾歲的老人家
http://www.wretch.cc/user/rosemary945
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.223.194.131
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
