ÔõôÓÃVBдһ¸ö¿ÉÒԸıäÒ»¸öÎı¾µÄÄÚÈݵijÌÐò
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿´µ½111±ä³É222£© ÄÜ˵µÃ¾ßÌåµãÂ𣬱¾È˲»Ì«»áVB
dim ts as string
dim allts as string
open youtextfilename for input as #1
do until eof(1)
line input #1,ts
if ts=111 and time=xx:xx:xx then ts=222
if allts="" then
allts=ts
else
allts= allts & vbcrlf & ts
endif
loop
close #1
if dir(youtextfilename)="" then kill youtextfilename
open youtextfilename for output as #1
print #1,allts
close #1
´ó¸Å¾ÍÊÇÕâ¸öÒâ˼
ÓÃVBµÄOPENÓï¾ä¾Í¿ÉÒÔÍê³É,ÄãÔÚ´°ÌåÉϼӸöTIMER,ʱ¼äÄã×Ô¼º¶¨,intervalʼþдÈë
dim a as string
open "c:\1.txt" for input as #1
intput line a,#1
close(#1)
if a="111" then
a="222"
else if a="222" then
a="333"
...
end if
open "c\1.txt" for output as #1
print a
close(#1)
ÒÔÉÏ´úÂëÔÚWINXP+VB6»·¾³ÏÂûÓо¹ýÊÔ,×Ô¼ºµ÷ÊÔ,лл..
»¹ÓÐ,TXTÎı¾µÄ´ò¿ª·½Ê½²»ÊÇÒÔ¶ÀÕ¼·½Ê½´ò¿ªµÄ,Òâ˼¾ÍÊǾÍËãÓбðµÄ³ÌÐò(Èç¼Çʱ¾)´ò¿ªÕâ¸öTXTÎļþ,ÄãÒ²¿ÉÒÔ±à¼Ëü...È»ºó¾ÍÊÇ×Ô¶¯ÏÔʾ±ä»¯µÄ¹¦ÄÜ..¼Çʱ¾Ã»ÓÐ UCµÄ»°»áÌáʾ..
²»´íµÄÌù
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......