vbÖÐ S1 = S1 & S & IIf(EOF(1),"",vbCrLf)ÊÇʲôÒâ˼...

ÕâÀïµÄvbCrLfÊǻسµµÄASCIIÂë,¼´CHR(13) ÆäÖеÄEOF(1)ÊÇÅжÏÎļþ½áÊøµÄº¯Êý,À¨ºÅÖеÄ(1)Ö¸µÄÊÇ1#Îļþ,Èç¹ûÎļþ½áÊøÁË,´ËÖµÎªÕæ,·ñÔòΪ¼Ù. ¶øIIFÊÇÒ»¸ö¸ù¾Ý±í´ïʽµÄ...

VB EOF(1) ʲôʱºòÓÃ

dim inputdata as string open "text.txt" for input as #1 '´ò¿ªÎļþtext.txt£¬ÎļþºÅΪ1 do while not eof(1)'¶ÁÎļþ£¬Ò»Ö±¶Áµ½Îļþβ input #1,inputdata'½«...

vbÖеÄEoFÊÇʲôÒâ˼

EOFΪEnd Of FileµÄËõд£¬ÔÚ²Ù×÷ϵͳÖбíʾ×ÊÁÏÔ´ÎÞ¸ü¶àµÄ×ÊÁϿɶÁÈ¡¡£DO while not EOF(1)½âÊÍ£ºÅжϵ±eof(1)µÄֵΪtrueʱֹͣdoÑ­»·¡£Ê¹ÓÃEOFÊÇΪÁ˱ÜÃâÒòÊÔ...

VBÎļþϵͳ±à³ÌÖеij£Óú¯Êý - °Ù¶È¾­Ñé

Ò²¿ÉÒÔΪÊôÐÔ³£Êý¶ÔÓ¦µÄÖµGetAttr·µ»ØÖµ±íÈçÏ£º³£Êý---Öµ---ÃèÊövbnormal---0---³£¹ævbReadonly---1---Ö»¶ÁvbHidden---2---Òþ²ØvbSystem---...

VBÖеÄEOFºÍLOFº¯ÊýÊÇʲôÔõôÓÃ

If EOF(1) Then 'Îļþ#1ÒѶÁÈ¡Íê±ÏElse '¼ÌÐø¶ÁÈ¡Îļþ#1End IfLOF£¨Length Of File£©- Îļþ³¤¶È£¬ÆäÖµÊÇÎļþµÄ×ܳ¤¶È£¨×Ö½Ú£©£ºPrint LOF(1) 'ÏÔʾÎļþ#1...

VBÖеÄEOFºÍLOFº¯ÊýÔõôÓÃ?

eof() º¯ÊýµÄ×÷ÓÃÊÇÅжÏÊÇ·ñµ½Îļþβ.ÀýÈ磺dim s as string open "c:\1.txt" for input as #1 do while not eof(1)line input #1,s print s loop close #1...

VB¶ÁдTXTÎĵµµÄ·½·¨(±àд¸öÈËÈռDZ¾Èí¼þ) - °Ù¶È¾­Ñé

1 ´ò¿ªVB6.0£¬Ð½¨±ê×¼EXE¹¤³Ì£¬°Ú·ÅÒ»¸öTextBox¡¢Á½¸öCommandButton¿Ø¼þ£¨Î»ÖÃËæÒâ°Ú·Å£¬´óСÈÎÒâ²¼¾Ö£¬ÍƼöÈçͼλÖã©¡£2 °ÑTextBox¿Ø¼þµÄTextÊôÐÔ¸ÄΪ...

VBÎı¾±à¼­Æ÷´úÂë

VBÎı¾±à¼­Æ÷´úÂëÒª´úÂ룬Ҫ´úÂ룬ÓÐʵÀýµÄ»°×îºÃDim gaibian As Boolean Dim shijian As String Private Sub baocun_Click() CommonDialog1....

VB Çë½Ì´óÉñΪʲôÎҵijÌÐò»áËÀÑ­»·?

ÔÚÄãµÄDoÑ­»·ÖУ¬²¢Ã»ÓжԴò¿ªµÄÎļþ×öÈκζÁд²Ù×÷£¬ÎļþÖ¸ÕëһֱͣÁôÔÚÆðʼλÖã¬ËùÒÔ EOF(1) µÄֵʼÖÕΪFalse£¬ËùÒÔÑ­»·ÎÞ·¨Í˳ö£¬ÐγÉÁËËÀÑ­»·¡£

VB´úÂëÖÐµÄ not EOF(1)ʲôÒâ˼°¡?

µ±#1ºÅÎļþûÓе½Î²²¿Ê±. Do While µ±#1Îļþûµ½Î²²¿Ê±Ñ­»·, µ½Î²Í£Ö¹ Input # 1£¬inData Text1.Text=Text1.Text+inData Loop ...

Ïà¹ØËÑË÷