VB¶ÁÎļþµÄÎÊÌ⣬Çó½â£¡
ÓÐÒÑÖªTXTÎļþtest.txt£¬ÄÚÈÝÈçÏ£º
A
B
C
D
E
F
G
ÿ¸ö×ÖĸһÐУ¬ÏÖÔÚÎÒÏë°ÑÕâЩÄÚÈÝÒÀ´Î¶Á³öÀ´²¢¸³Öµ¸øÒ»¸öÊý×飬Õâ¸ö±äÁ¿½«²ÎÓëÔËËã¡£
±ÈÈ磬¶ÁÈ¡ºó¸³Öµ¸øÊý×éf()£¬f(1)=A£¬f(2)=B£¬¡¡ÇëÎʸÃÔõôʵÏÖѽ¡£
´óÌå·½·¨ÎÒÃ÷°×µã£¬µ«ÊDz»ÊǺÜÇå³þÔõôÒÀ´Î¶ÁTXT¡£¿ÒÇë´ó¼Ò¸ø½â¾öһϰɣ¬¸ø¸ö´úÂëÈÃСµÜѧϰÏ¡£
--ÖðÐжÁÈ¡
filenum% = FreeFile
Open CurrentPath + "LateReason.rtf" For Input As #filenum
Line Input #filenum, s1
Line Input #filenum, s2
Line Input #filenum, s3
Line Input #filenum, s4
Line Input #filenum, s5
lblbusid.Caption = s1
lbllicenseplatenum.Caption = s2
lblstartplace.Caption = s3
lblendplace.Caption = s4
lblstarttime.Caption = s5
Close #filenum
·½·¨¶þ£º ¶Áȡȫ²¿Îı¾ ÒԻسµ·û·Ö¸ô дÈëÊý×é
Dim filenum As Integer
filenum = FreeFile
Open CommonDialog1.FileName For Binary As #filenum
a = Input(LOF(filenum), #filenum)
y = Split(a, vbCrLf)
MsgBox y(0)
MsgBox y(1)
DataBaseForm.Text1.Text = y(0) & "1111" & y(1)
VB code:
Option Explicit
Private Sub Command1_Click()
Dim st
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......