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

vbʹÓÃopen·½·¨¶ÁдÎļþ

 
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍĿ¼
¡¡
¡¡£¨2£©Input Output
ºÍAppendÓÃÓÚÉèÖÃ˳ÐòÎļþµÄ´ò¿ª·½Ê½¡£ÆäÖУ¬Input±íʾ´Ó´ò¿ªµÄÎļþÖжÁÈ¡Êý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÎļþʱ£¬Îļþ±ØÐë´æÔÚ£¬·ñÔò»á²úÉú´íÎó¡£
Output±íʾÏò´ò¿ªµÄÎļþÖÐдÈëÊý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÎļþʱ£¬ÎļþÖÐÔ­ÓеÄÊý¾Ý½«±»¸²¸Ç£¬ÐµÄÊý¾Ý½«´ÓÎļþ¿ªÊ¼Ð´Èë¡£Èç¹ûÎļþ²»´æÔÚ£¬Ôò´´½¨Ò»¸öÐÂÎÄ
¼þ¡£Append±íʾÏò´ò¿ªµÄÎļþÖÐÌí¼ÓÊý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÊ±£¬ÎļþÖÐÔ­ÓеÄÊý¾Ý½«±»±£Áô£¬ÐµÄÊý¾Ý½«´ÓÎļþΪ¿ªÊ¼Ìí¼Ó¡£Èç¹ûÎļþ²»´æÔÚ£¬Ôò´´½¨Ò»¸öÐÂ
Îļþ¡£
¡¡¡¡£¨3£©As[#]filenumber ×Ó¾äÓÃÓÚΪ´ò¿ªµÄÎļþÖ¸¶¨ÎļþºÅ.¶ÔÎļþ½øÐжÁд²Ù×÷ʱ,ÒªÓÃÎļþºÅ±íʾ¸ÃÎļþ.ÎļþºÅÊǽéÓÚ1~511Ö®¼äµÄÕûÊý,¼È¿ÉÒÔÊÇÊý×Ö,ÓÖ¿ÉÒÔÊDZäÁ¿.Ò²¿ÉÒÔÊ¡ÂÔ²»ÓÃ.
¡¡¡¡(4)µ±ÔÚÎļþÓë³ÌÐòÖ®¼ä¿½±´Êý¾Ýʱ,Len=buffersize×Ó¾äÖ¸¶¨»º³åÇøµÄ×Ö·ûÊý.
¡¡¡¡ÀýÈç:

Open App.Path + "\test.dat" For Output As 1
Open App.Path + "\test.dat" For Output As 1
¡¡¡¡ÕâÁ½¾ä´úÂëÔÚµ±Ç°Ó¦ÓóÌÐòËùÔÚĿ¼Ï´´½¨ÁËÒ»¸öÃûΪtest.datµÄÎı¾Îļþ,·ÖÅäÎļþºÅΪ1.

Open App.Path + "\test.dat" For Input As [#]filenumber
¡¡¡¡ÕâÌõÓï¾äÊÇ´ÓÎı¾ÎļþÖжÁÈ¡Êý¾Ý.

Open App.Path + "\test.dat" For Append As [#]filenumber
¡¡¡¡ÕâÌõÓï¾äÔòÊÇÏñÎı¾ÎļþÖÐÌí¼ÓÊý¾Ý
¡¡¡¡2¡¢Ëæ»úÎļþ
¡¡¡¡²Ù×÷Ëæ»úÎļþ֮ǰ,Ê×ÏȱØÐ붨ÒåÓÃÓÚ±£´æÊý¾ÝÏîµÄ¼Ç¼ÀàÐÍ.¸Ã¼Ç¼ÊÇÓû§×Ô¶¨ÒåÊý¾ÝÀàÐÍ,ËûÃÇÊÇËæ»úÎļþÖд洢Êý¾ÝµÄ»ù±¾½á¹¹.ÀýÈç:

Type Student
¡¡No As Integer
¡¡Name As String * 20
¡¡age As Integer
End Type
Dim Stud As Student ‘¶¨ÒåÒ»¸ö¿ÉÒÔ´æ·ÅѧÉú²ÄÁϵıäÁ¿
¡¡¡¡Ëæ»úÎļþÖÐ,ËùÓеÄÊý¾Ý¶¼½«±£´æµ½Èô¸É¸ö½á¹¹ÎªStudentÀàÐ͵ļǼÖÐ, ¶ø´ÓËæ»úÎļþÖжÁ³öµÄÊý¾ÝÔò¿ÉÒÔ´æ·Åµ½±äÁ¿StudÖÐ.
¡¡¡¡Ö®ºóÎÒÃǾͿÉÒÔ´ò¿ª²¢¶ÁдÎļþÁË.ÏÂÃæÊÇ´ò¿ªËæ»úÎļþµÄÓï·¨¸ñʽ:

Open filename For Random as [#]filenumber Len = Reclengt


Ïà¹ØÎĵµ£º

dz̸VB±à³ÌÖÐÍø¸ñ¿Ø¼þµÄÑ¡Óü°Ê¹Ó÷½·¨

 ÄÚÈÝÌáÒªÕªÒª£º The software of visual basic developed by Microsoft corporation is becoming one of the main develop tools at today¡£ As it's remarkable peculiarity, the Grid control has very great practical and active use¡£ This topic discusses how to use the grid control of VB to develop prati ......

VB ·¢ËÍÄ£Äâ°´¼ü

Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' ÔËÐмÆËãÆ÷¡£
AppActivate ReturnValue ' ¼¤»î¼ÆËãÆ÷¡£
For I = 1 To 100 ' ÉèÖüÆÊýÑ­»·¡£
SendKeys I & "{+}", True ' °´Ï°´¼ü¸ø¼ÆËãÆ÷
Next I ' ½«ËùÓÐ I ÖµÏà¼Ó¡£
SendKeys "=", True ' È¡µÃ×ܺϡ£
SendKeys "%{F4}", True ' °´ ALT+F4 ¹Ø ......

¹ØÓÚVBµÄListBox¿Ø¼þÑ¡¶¨ÏîµÄ»ñÈ¡

 ½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½Ô­Òò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......

vbʵÏÖĿ¼ÏÂËùÓÐÎļþÃûĿ¼Ãû³ÆµÄ»ñÈ¡

 Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñȡһÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾ­ÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ