VB.net能用VB的*.bas模塊嗎

需要做一點微調，比如vb6里，integer是雙位元組，long是4位元組，代碼改成.net需要對應改成 int16，integer(或int32)；結構體在.net里是 Structure 不再是Type。總體講差別不大。建議先試試看，新建vb.net 工程以后，新增一個Module檔案，把這個代碼放進去，初步改一遍后跑跑看。

不要做A語言代碼修改為B語言代碼的無用功。
也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
比如：
A將請求資料寫到檔案a.txt，寫完后改名為aa.txt
B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt
A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt
以上A可以替換為任何一種開發語言或開發環境，B可以替換為任何一種與A不同的開發語言或開發環境。
除非A或B不支持判斷檔案是否存在、檔案讀寫和檔案更名。
但是誰又能舉出不支持判斷檔案是否存在、檔案讀寫和檔案更名的開發語言或開發環境呢？
可以將臨時檔案放在RamDisk上提高效率減少磨損磁盤。
資料的結構很復雜的話，文本檔案的格式問題可參考json或xml

共享臨時文本檔案這種行程之間的通訊方法相比其它方法的優點有很多，下面僅列出我現在能想到的：
·行程之間松耦合
·行程可在同一臺機器上，也可跨機，跨作業系統，跨硬體平臺，甚至跨國。
·方便除錯和監視，只需讓第三方或人工查看該臨時文本檔案即可。
·方便在線開關服務，只需洗掉或創建該臨時文本檔案即可。
·方便實作分布式和負載均衡。
·方便佇列化提供服務，而且幾乎不可能發生佇列滿的情況（除非硬碟空間滿）
·……

“跨語言、跨機，跨作業系統，跨硬體平臺，跨國，跨*.*的”苦海無邊，
回頭是“使用共享純文本檔案進行資訊交流”的岸！

Quote: 參考 5 樓 zhao4zhong1 的回復:

不要做A語言代碼修改為B語言代碼的無用功。
也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
比如：
A將請求資料寫到檔案a.txt，寫完后改名為aa.txt
B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt
A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt
以上A可以替換為任何一種開發語言或開發環境，B可以替換為任何一種與A不同的開發語言或開發環境。
除非A或B不支持判斷檔案是否存在、檔案讀寫和檔案更名。
但是誰又能舉出不支持判斷檔案是否存在、檔案讀寫和檔案更名的開發語言或開發環境呢？
可以將臨時檔案放在RamDisk上提高效率減少磨損磁盤。
資料的結構很復雜的話，文本檔案的格式問題可參考json或xml

共享臨時文本檔案這種行程之間的通訊方法相比其它方法的優點有很多，下面僅列出我現在能想到的：
·行程之間松耦合
·行程可在同一臺機器上，也可跨機，跨作業系統，跨硬體平臺，甚至跨國。
·方便除錯和監視，只需讓第三方或人工查看該臨時文本檔案即可。
·方便在線開關服務，只需洗掉或創建該臨時文本檔案即可。
·方便實作分布式和負載均衡。
·方便佇列化提供服務，而且幾乎不可能發生佇列滿的情況（除非硬碟空間滿）
·……

“跨語言、跨機，跨作業系統，跨硬體平臺，跨國，跨*.*的”苦海無邊，
回頭是“使用共享純文本檔案進行資訊交流”的岸！

辛苦了，謝謝哈。思路對我很受用。

Quote: 參考 9 樓 qq_35913527 的回復:

Quote: 參考 5 樓 zhao4zhong1 的回復:

不要做A語言代碼修改為B語言代碼的無用功。
也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
比如：
A將請求資料寫到檔案a.txt，寫完后改名為aa.txt
B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt
A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt
以上A可以替換為任何一種開發語言或開發環境，B可以替換為任何一種與A不同的開發語言或開發環境。
除非A或B不支持判斷檔案是否存在、檔案讀寫和檔案更名。
但是誰又能舉出不支持判斷檔案是否存在、檔案讀寫和檔案更名的開發語言或開發環境呢？
可以將臨時檔案放在RamDisk上提高效率減少磨損磁盤。
資料的結構很復雜的話，文本檔案的格式問題可參考json或xml

共享臨時文本檔案這種行程之間的通訊方法相比其它方法的優點有很多，下面僅列出我現在能想到的：
·行程之間松耦合
·行程可在同一臺機器上，也可跨機，跨作業系統，跨硬體平臺，甚至跨國。
·方便除錯和監視，只需讓第三方或人工查看該臨時文本檔案即可。
·方便在線開關服務，只需洗掉或創建該臨時文本檔案即可。
·方便實作分布式和負載均衡。
·方便佇列化提供服務，而且幾乎不可能發生佇列滿的情況（除非硬碟空間滿）
·……

“跨語言、跨機，跨作業系統，跨硬體平臺，跨國，跨*.*的”苦海無邊，
回頭是“使用共享純文本檔案進行資訊交流”的岸！

辛苦了，謝謝哈。思路對我很受用。

例子代碼給你繼續“受用”吧：

//test.c 本程式演示兩個行程之間通過臨時文本檔案交換資料實作間接呼叫

//A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

//B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt

//A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

#include <io.h>

#include <stdio.h>

#include <windows.h>

int main(int argc,char **argv) {

    int d,r;

    FILE *f;

    char cmdstr[512];



    if (argc<2) {

        sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);

        WinExec(cmdstr,SW_HIDE);

        for (d=1;d<=5;d++) {//共使用1..5呼叫B 5次

            //A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

            f=fopen("a.txt","w");

            fprintf(f,"%d\n",d);

            fclose(f);

            rename("a.txt","aa.txt");

            printf("call with %d\n",d);

            //A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

            while (1) {

                Sleep(100);

                if (_access("bb.txt",0)!=-1) {

                    f=fopen("bb.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    remove("bb.txt");

                    break;

                }

            }

            printf("result:%d\n",r);

        }

        return 0;

    }

    if (argv[1][0]=='a'||argv[1][0]=='A') {//A

        for (d=1;d<=5;d++) {//共使用1..5呼叫B 5次

            //A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

            f=fopen("a.txt","w");

            fprintf(f,"%d\n",d);

            fclose(f);

            rename("a.txt","aa.txt");

            printf("call with %d\n",d);

            //A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

            while (1) {

                Sleep(100);

                if (_access("bb.txt",0)!=-1) {

                    f=fopen("bb.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    remove("bb.txt");

                    break;

                }

            }

            printf("result:%d\n",r);

        }

    } else {//B

        while (1) {

            //B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt

            while (1) {

                Sleep(100);

                if (_access("aa.txt",0)!=-1) {

                    f=fopen("aa.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    r=r*10;

                    f=fopen("b.txt","w");

                    fprintf(f,"%d\n",r);

                    fclose(f);

                    remove("aa.txt");

                    rename("b.txt","bb.txt");

                    break;

                }

            }

            if (r==50) break;

        }

    }

    return 0;

}

//C:\tmp\test>test

//call with 1

//result:10

//call with 2

//result:20

//call with 3

//result:30

//call with 4

//result:40

//call with 5

//result:50

//

//C:\tmp\test>start /B test B

//

//C:\tmp\test>test A

//call with 1

//result:10

//call with 2

//result:20

//call with 3

//result:30

//call with 4

//result:40

//call with 5

//result:50

//

//C:\tmp\test>

Quote: 參考 11 樓 zhao4zhong1 的回復:

Quote: 參考 9 樓 qq_35913527 的回復:

Quote: 參考 5 樓 zhao4zhong1 的回復:

不要做A語言代碼修改為B語言代碼的無用功。
也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
比如：
A將請求資料寫到檔案a.txt，寫完后改名為aa.txt
B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt
A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt
以上A可以替換為任何一種開發語言或開發環境，B可以替換為任何一種與A不同的開發語言或開發環境。
除非A或B不支持判斷檔案是否存在、檔案讀寫和檔案更名。
但是誰又能舉出不支持判斷檔案是否存在、檔案讀寫和檔案更名的開發語言或開發環境呢？
可以將臨時檔案放在RamDisk上提高效率減少磨損磁盤。
資料的結構很復雜的話，文本檔案的格式問題可參考json或xml

共享臨時文本檔案這種行程之間的通訊方法相比其它方法的優點有很多，下面僅列出我現在能想到的：
·行程之間松耦合
·行程可在同一臺機器上，也可跨機，跨作業系統，跨硬體平臺，甚至跨國。
·方便除錯和監視，只需讓第三方或人工查看該臨時文本檔案即可。
·方便在線開關服務，只需洗掉或創建該臨時文本檔案即可。
·方便實作分布式和負載均衡。
·方便佇列化提供服務，而且幾乎不可能發生佇列滿的情況（除非硬碟空間滿）
·……

“跨語言、跨機，跨作業系統，跨硬體平臺，跨國，跨*.*的”苦海無邊，
回頭是“使用共享純文本檔案進行資訊交流”的岸！

辛苦了，謝謝哈。思路對我很受用。

例子代碼給你繼續“受用”吧：

//test.c 本程式演示兩個行程之間通過臨時文本檔案交換資料實作間接呼叫

//A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

//B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt

//A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

#include <io.h>

#include <stdio.h>

#include <windows.h>

int main(int argc,char **argv) {

    int d,r;

    FILE *f;

    char cmdstr[512];



    if (argc<2) {

        sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);

        WinExec(cmdstr,SW_HIDE);

        for (d=1;d<=5;d++) {//共使用1..5呼叫B 5次

            //A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

            f=fopen("a.txt","w");

            fprintf(f,"%d\n",d);

            fclose(f);

            rename("a.txt","aa.txt");

            printf("call with %d\n",d);

            //A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

            while (1) {

                Sleep(100);

                if (_access("bb.txt",0)!=-1) {

                    f=fopen("bb.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    remove("bb.txt");

                    break;

                }

            }

            printf("result:%d\n",r);

        }

        return 0;

    }

    if (argv[1][0]=='a'||argv[1][0]=='A') {//A

        for (d=1;d<=5;d++) {//共使用1..5呼叫B 5次

            //A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

            f=fopen("a.txt","w");

            fprintf(f,"%d\n",d);

            fclose(f);

            rename("a.txt","aa.txt");

            printf("call with %d\n",d);

            //A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

            while (1) {

                Sleep(100);

                if (_access("bb.txt",0)!=-1) {

                    f=fopen("bb.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    remove("bb.txt");

                    break;

                }

            }

            printf("result:%d\n",r);

        }

    } else {//B

        while (1) {

            //B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt

            while (1) {

                Sleep(100);

                if (_access("aa.txt",0)!=-1) {

                    f=fopen("aa.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    r=r*10;

                    f=fopen("b.txt","w");

                    fprintf(f,"%d\n",r);

                    fclose(f);

                    remove("aa.txt");

                    rename("b.txt","bb.txt");

                    break;

                }

            }

            if (r==50) break;

        }

    }

    return 0;

}

//C:\tmp\test>test

//call with 1

//result:10

//call with 2

//result:20

//call with 3

//result:30

//call with 4

//result:40

//call with 5

//result:50

//

//C:\tmp\test>start /B test B

//

//C:\tmp\test>test A

//call with 1

//result:10

//call with 2

//result:20

//call with 3

//result:30

//call with 4

//result:40

//call with 5

//result:50

//

//C:\tmp\test>

老趙真是老師？
索性多聊點吧，如果A發出了5個請求，B處理到第3個，然后A又需要發5個請求怎么辦？你的代碼完全沒有考慮競爭，更不用說操作的原子性。分布式不是你想得那么簡單三兩句代碼就行的。一旦操作頻繁起來，程式之間搶資源要搶到打破頭，解決了鎖的問題，還有一個傳輸效率的問題，你肯定也沒有考慮過，事實上檔案是效率最低的，一旦有高頻的、大體積的資料互動，資源都消耗在IO上，這個問題你肯定也沒有考慮過。一板一眼地給學生做演示的時候，我覺得你寫起代碼肯定是信手拈來，但是老趙，真實的專案里不會這樣做的，你覺得復制粘貼的這些語錄都是你的心得，但是這些只是你拍腦門憑空拍出來的東西，你以為有些事很傻，但是反而是你想得太簡單。更糟糕的是，你一邊到處宣傳這些一邊吸引別人的關注，覺得自己是在傳道，很有滿足感，可事實上你到呼叫這套想當然的東西把多少人給帶歪了？
還有，vb的歸vb，.net的歸.net，java的歸java，c的歸c……很多次見你為了甩代碼而甩代碼，這樣不是合適的討論方式。不然你回頭再翻一翻你的回帖，是不是真正在討論問題，是不是對題主有參考價值。
你要想驗證一下也很簡單，去.net版塊，java版塊，python版塊連續復制粘貼刷三天，看看大家會怎么回復你。

Quote: 參考 11 樓 zhao4zhong1 的回復:

Quote: 參考 9 樓 qq_35913527 的回復:

Quote: 參考 5 樓 zhao4zhong1 的回復:

不要做A語言代碼修改為B語言代碼的無用功。
也不要做用A語言代碼直接呼叫B語言代碼庫這樣復雜、這樣容易出錯的傻事。
只需讓A、B語言代碼的輸入輸出重定向到文本檔案，或修改A、B語言代碼讓其通過文本檔案輸入輸出。
即可很方便地讓A、B兩種語言之間協調作業。
比如：
A將請求資料寫到檔案a.txt，寫完后改名為aa.txt
B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt
A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt
以上A可以替換為任何一種開發語言或開發環境，B可以替換為任何一種與A不同的開發語言或開發環境。
除非A或B不支持判斷檔案是否存在、檔案讀寫和檔案更名。
但是誰又能舉出不支持判斷檔案是否存在、檔案讀寫和檔案更名的開發語言或開發環境呢？
可以將臨時檔案放在RamDisk上提高效率減少磨損磁盤。
資料的結構很復雜的話，文本檔案的格式問題可參考json或xml

共享臨時文本檔案這種行程之間的通訊方法相比其它方法的優點有很多，下面僅列出我現在能想到的：
·行程之間松耦合
·行程可在同一臺機器上，也可跨機，跨作業系統，跨硬體平臺，甚至跨國。
·方便除錯和監視，只需讓第三方或人工查看該臨時文本檔案即可。
·方便在線開關服務，只需洗掉或創建該臨時文本檔案即可。
·方便實作分布式和負載均衡。
·方便佇列化提供服務，而且幾乎不可能發生佇列滿的情況（除非硬碟空間滿）
·……

“跨語言、跨機，跨作業系統，跨硬體平臺，跨國，跨*.*的”苦海無邊，
回頭是“使用共享純文本檔案進行資訊交流”的岸！

辛苦了，謝謝哈。思路對我很受用。

例子代碼給你繼續“受用”吧：

//test.c 本程式演示兩個行程之間通過臨時文本檔案交換資料實作間接呼叫

//A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

//B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt

//A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

#include <io.h>

#include <stdio.h>

#include <windows.h>

int main(int argc,char **argv) {

    int d,r;

    FILE *f;

    char cmdstr[512];



    if (argc<2) {

        sprintf(cmdstr,"cmd /c \"%s\" B",argv[0]);

        WinExec(cmdstr,SW_HIDE);

        for (d=1;d<=5;d++) {//共使用1..5呼叫B 5次

            //A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

            f=fopen("a.txt","w");

            fprintf(f,"%d\n",d);

            fclose(f);

            rename("a.txt","aa.txt");

            printf("call with %d\n",d);

            //A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

            while (1) {

                Sleep(100);

                if (_access("bb.txt",0)!=-1) {

                    f=fopen("bb.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    remove("bb.txt");

                    break;

                }

            }

            printf("result:%d\n",r);

        }

        return 0;

    }

    if (argv[1][0]=='a'||argv[1][0]=='A') {//A

        for (d=1;d<=5;d++) {//共使用1..5呼叫B 5次

            //A將請求資料寫到檔案a.txt，寫完后改名為aa.txt

            f=fopen("a.txt","w");

            fprintf(f,"%d\n",d);

            fclose(f);

            rename("a.txt","aa.txt");

            printf("call with %d\n",d);

            //A發現bb.txt存在時，讀取其內容，讀完后洗掉bb.txt

            while (1) {

                Sleep(100);

                if (_access("bb.txt",0)!=-1) {

                    f=fopen("bb.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    remove("bb.txt");

                    break;

                }

            }

            printf("result:%d\n",r);

        }

    } else {//B

        while (1) {

            //B發現aa.txt存在時，讀取其內容，呼叫相應功能，將結果寫到檔案b.txt，寫完后洗掉aa.txt，再將b.txt改名為bb.txt

            while (1) {

                Sleep(100);

                if (_access("aa.txt",0)!=-1) {

                    f=fopen("aa.txt","r");

                    fscanf(f,"%d",&r);

                    fclose(f);

                    r=r*10;

                    f=fopen("b.txt","w");

                    fprintf(f,"%d\n",r);

                    fclose(f);

                    remove("aa.txt");

                    rename("b.txt","bb.txt");

                    break;

                }

            }

            if (r==50) break;

        }

    }

    return 0;

}

//C:\tmp\test>test

//call with 1

//result:10

//call with 2

//result:20

//call with 3

//result:30

//call with 4

//result:40

//call with 5

//result:50

//

//C:\tmp\test>start /B test B

//

//C:\tmp\test>test A

//call with 1

//result:10

//call with 2

//result:20

//call with 3

//result:30

//call with 4

//result:40

//call with 5

//result:50

//

//C:\tmp\test>

老趙真是老師？
索性多聊點吧，如果A發出了5個請求，B處理到第3個，然后A又需要發5個請求怎么辦？你的代碼完全沒有考慮競爭，更不用說操作的原子性。分布式不是你想得那么簡單三兩句代碼就行的。一旦操作頻繁起來，程式之間搶資源要搶到打破頭，解決了鎖的問題，還有一個傳輸效率的問題，你肯定也沒有考慮過，事實上檔案是效率最低的，一旦有高頻的、大體積的資料互動，資源都消耗在IO上，這個問題你肯定也沒有考慮過。一板一眼地給學生做演示的時候，我覺得你寫起代碼肯定是信手拈來，但是老趙，真實的專案里不會這樣做的，你覺得復制粘貼的這些語錄都是你的心得，但是這些只是你拍腦門憑空拍出來的東西，你以為有些事很傻，但是反而是你想得太簡單。更糟糕的是，你一邊到處宣傳這些一邊吸引別人的關注，覺得自己是在傳道，很有滿足感，可事實上你到呼叫這套想當然的東西把多少人給帶歪了？
還有，vb的歸vb，.net的歸.net，java的歸java，c的歸c……很多次見你為了甩代碼而甩代碼，這樣不是合適的討論方式。不然你回頭再翻一翻你的回帖，是不是真正在討論問題，是不是對題主有參考價值。
你要想驗證一下也很簡單，去.net版塊，java版塊，python版塊連續復制粘貼刷三天，看看大家會怎么回復你。