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

¹ØÓÚVBµÄÎļþ¶ÁдÎÊÌâ

ÇëÎÊ£º
±ÈÈç˵
Open App.Path & "1.txt" For Output As #1    ' ´ò¿ªÊä³öÎļþ¡£
    print #1, "This is a test" 
    print #1, "test is another test" 
    Close #1
MsgBox "success"


¾ÍÊÇдÈë2ÐÐÊý¾Ý


±ÈÈç˵ÎÒÔٴδ¥·¢ÉÏÃæÕâ¸ö·½·¨£¬µÚ¶þ´ÎдµÄÊý¾ÝÊÇ
Open App.Path & "1.txt" For Output As #1    ' ´ò¿ªÊä³öÎļþ¡£
    print #1, "This is a test" 
    'print #1, "test is another  test" 
    Close #1
MsgBox "success"

´ËʱµÚ2ÐÐûÁË£¬Ò²¾ÍÊÇvb»á°ïÎÒÖ±½Ó°ÑµÚ2ÐÐɾµô£¬¶ø²»ÊDZ£ÁôµÚÒ»´ÎÎÒд½øÈ¥µÄ"test is another  test" .ÓÐʲô°ì·¨Äܹ»Ö¸¶¨ÎÒÒªÐ޸Ĵò¿ªÎļþµÄµÚ¼¸ÐÐÂð£¨ÔÚ±£ÁôÔ­ÎļþÖÐÆäËûÐв»±äµÄÇé¿öÏ£©¡£¡£¶î¡£Ð»Ð»´ó¼ÒÁË£¬±¾È˶ÔvbʵÔÚ²»Êì¡£
for append?

ÒýÓÃ
for append?


for append Ö»ÄÜÔÚ½áβÊäÈ룬²»ÄÜÐ޸ľßÌåµÄÒ»Ðа¡

ÈçºÎ¶Á/д Binary File

'ÒÔÏÂÊǶÁÈ¡Binary fileµÄ³Ìʽ
Dim Buff() as Byte

Open "d:\csys\8504\ctc" For Binary Access Read As #1
ReDim Buff(267)

Do While Not EOF(1)
  Get #1, , Buff  'ÿ´Î¶Á268¸öbyte½øÀ´
  'Call ´¦ÀíBuff µÄRoutine
Loop <


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

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

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

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

»Ø¸´ ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

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

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

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ