VB ¶ÁÈ¡¶àÐÐcsvÎļþµÄÎÊÌ⣨¼±£©

 


Open App.Path + "\test.csv" For Input As #1   
    Do Until EOF(1)
        Line Input #1, strtmp1
    Loop
   
  strtmp2 = Split(strtmp1, ",")
  iCount = UBound(strtmp2)

   
    ReDim intRace(0 To UBound(strtmp2) - 1)
   
    For intCnt = 0 To UBound(strtmp2) - 1
        Input #1, intRace(intCnt)
    Next intCnt
    Close #1


´úÂëÈçÏ£¬ÎªÊ²Ã´»á±¨Õâ¸ö´í  ¡°input past end of file¡± °¡£¬Çë½Ì¸÷λ´óÏÀ£¬°ïСµÜÒ»¸öæ°É¡«£¡

---

csvÎļþÀïÊǶàÐеÄÊý¾Ý£¬ÎÒÕâÑùдÄܶÁÈ¡¶àÐÐÂð£¿

---

1, ÓÐûÓÐÓÃOption Base
2£¬ÎªÊ²Ã´²»ÓÃiCount´úÌæUBound(strtmp2) - 1

---

˵һÏ´úÂëµÄÒâͼ

---

¶Á
Open App.Path + "\test.csv" For Input As #1   
    Do Until EOF(1)
        Line Input #1, strtmp1
    Loop
   
  strtmp2 = Split(strtmp1, ",")
      Close #1

---

¶ÁÎļþ£¡
    Open ÎļþλÖà For Input As #1
    If LOF(1) > 0 Then     
      Text1.Text = ""   
      Whil