Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ