ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ®£¬ÔõôûÓÐÉìÊÖ°ïæµÄÄØ£¿£¿£¿£¿ÎÒÒ²ÊÇÐÂÊÖÒ²ºÃѧϰһÏ£¡
°ïÄã¶¥Ò»ÉÏ£¬£¬£¬£¬£¬ÍøÉ϶࣬£¬£¬£¬£¬²»ÒªÍüÁË£¬£¬½á·Ö°¡
×î¼òµ¥µÄ°ì·¨ £¬Ê¹ÓÃRichTextBox ½øÐжÁд
txtSave.SaveFile(sFile, RichTextBoxStreamType.PlainText)
Ò²¿ÉÓÃIO.File.ReadAllText(sFiles(i), System.Text.Encoding.GetEncoding("gb2312"))
¹Ø×¢+ѧϰ!!!
VB.NET code:
Dim a as new System.io.StreamWriter(path,System.Text.Encoding.Default)
a.write("ÄÚÈÝ")
a.close
a.dispose()
¶÷£¡¶àл¸÷λµÄÖ¸µãŶ£¬Õ⼸ÌìÎÒŪ³öÀ´ÁËһЩ£¬µ«Ïà±ÈWindows×Ô´øµÄTXT¼Çʱ¾¹¦ÄÜ»¹ÊÇÔ¶Ô¶²»¼°ÄØ£¡
E
ÄãÊÇ»ªÖпƼ¼´óѧµÄ°É
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
×Ô¼º²ÉÓõÄÊÇSet objWMIService = GetObject("winmgmts:\\"&computername&"\root\cimv2")£¬ÆäÖÐcomputernameÊǾÖÓòÍøÒ»Ì¨µçÄÔµÄIP»ò¼ÆËã»úÃû£¬µ«Ê¹ÓÃÕâ¸öwmiÓï¾ä¶ÔÔ¶³Ì¼ÆËã»ú½øÐвÙ×÷ʱ ......