ÇëÎÊvb¶ÁÈ¡utf-8ÎļþµÄ·½·¨
ÎÒÏÂÔØµÄÍøÒ³Ô´Îļþ Õý³£ÏÔʾ ¿´¸ñʽÊÇutf-8
¶ÁÈ¡³öÀ´ºóÓÐÂÒÂë
ÎÒÓõÄÊÇline input ·½·¨
ÕÒµ½ÁË ²»ºÃÒâ˼
·½·¨£º
×î¼Ñ´ð°¸
ÒýÓÃmicrosoft activex data object library
Dim s As Stream
Set s = New Stream
s.Open
s.Charset = "UTF-8"
s.Position = 0
s.LoadfromFile "C:\pppp.wap"
s.Position = 0
Text1 = s.ReadText
»¹ÊÇ×ÔÁ¦¸üÉúµÄºÃ°¡
FileSystemObjectϵĶÔÏóÒ²¿ÉÒÔÓÃ
ÕâЩ¶«Î÷ÕÒÒ»ÏÂÓ¦¸ÃºÜ¶àÁË
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......