Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

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




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

À´½Óµã·Ö

......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

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

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

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

VB¶ÁÈ¡Îļþ£¨MΪµ¥Î»£©

ÎÒÓÃVB×Ô´øµÄTextBox¿Ø¼þ£¬
Option Explicit
Private Type De '¿é¶¨Òå
  FSize(1 To 1024) As Byte
End Type
Private Sub Command1_Click()
Dim F As De
Dim N As Integer
Open "C:\WINDOWS\N ......

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ºÅ