Open "ning.txt" For Input As #1 Close #1 ÈçºÎÅжϴò¿ªÎļþÊÇ·ñ³É¹¦£¬±ÈÈç˵£¬±ðµÄ³ÌÐòÕýÔÚ·ÃÎÊ£¬»òÕßÕâ¸öÎļþ²»´æÔÚ£¬ÔõôÅжϴò¿ªÎļþ½á¹û£¿ Èç¹û³ÌÐòÀïûÓÐÅжϵϰ£¬³ÌÐò»á³ö´í£¬ÎÒÏë×Ô¼ºÅжϣ¬Ó¦¸ÃÔõôд´úÂ룿 on error goto err Open "ning.txt" For Input As #1 Close #1
exit sub err: msgbox "sdfsdf" ×îºÃÓÃapi°ÉÅóÓÑ,createfileÓÃËüÀ´´ò¿ªÎļþ¿ÉÒÔÖ±½ÓÈ¡»ØlongÖµ-1Ϊʧ°Ü
Ö§³Ö£¬Ê¹ÓöÀÕ¼·½Ê½À´´ò¿ª£¬ÆäËûµÄ²Ù×÷ÔÙÈ¥´ò¿ª£¬¾Í»á±¨´í on error goto fileerr
fileerr: .... exit sub
È¥¿´Ò»ÏÂVBµÄ³ö´í´¦Àí
Èç¹û¹²Ïí´ò¿ª£¬ÊDz»»á³ö´íµÄ¡£Èç¹ûÊǶÀÕ¼»òÎļþ²»´æÔÚ£¬»á²úÉúÏàÓ¦µÄ´íÎ󣬿ÉÒÔÖ±½ÓÓà on error goto ErrNext À´ÔÚºóÃæ½øÐд¦Àí¡£ ÁíÒ»¸ö°ì·¨¡£¡£
VB code:
On Error Resume Next Err.Clear Open "ning.txt" For Input As #1 If Err Then Close #1 End If
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®