ÔõôÓÃ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µÄ»°»áÌáʾ..
²»´íµÄÌù
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......