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

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


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

ÐÂÊÖÇë½Ì¹ØÓÚVBÖд®¿ÚͨÐÅMSCOMM£¨Ïëͬʱ·¢Á½¸öÃüÁ

¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......

Ö»»áVB£¬ÏÖÔÚÏëÖØÐÂѧÃÅÓïÑÔ - VB / ·Ç¼¼ÊõÀà

Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ