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ÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
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ÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......