Dim?file1?As?FileStream
我們提供的服務(wù)有:成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、靈璧ssl等。為上千企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的靈璧網(wǎng)站制作公司
filename?=?"c:\temp\MyTest.txt"
Dim?GetData(4)?As?Byte,?s(4)?As?Char
file1?=?System.IO.File.OpenRead(filename)
Dim?CMGs?As?Long
Dim?DPBo?As?Long
Dim?i?As?Integer?=?0,?j?As?Integer
While?file1.Read(GetData,?0,?5)??0
i?=?i?+?1
For?j?=?0?To?4
s(j)?=?ChrW(GetData(j))
Next
If?s?=?"CMG="""?Then?CMGs?=?i
If?s?=?"[Host"?Then?DPBo?=?i?-?2?:?Exit?While
End?While
主要是vb.net取消了定長字符串, 所以用字節(jié)數(shù)組讀入, 還得轉(zhuǎn)成字符數(shù)組來比較.
把代碼輸入到vb.net里面,可以轉(zhuǎn)。就像word2003文檔用word2007文擋打開,再保存為2007格式一樣。
以有簡單的 吧編譯好的 vb6或者其他的vb的文件用vb.net打開 有個升級向?qū)?一步一步很簡單轉(zhuǎn)換時exe只能換成exe dll只能換成dll 以前的屬性不能修改就能升級成.net框架下的vb最新的vb.net編輯了。
你可以直接打開 VB6 的程序,VB.net 會自動啟動升級向?qū)⒛愕?VB6 代碼升級為 VB.net。