匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 2 0 年前

關於VB..

問一下喔..要怎麼把文字文件檔放到VB檔案裡..

現在交到open...close就是不知道要怎麼存進去...

已更新項目:

我的意思是說要把文字文件放到VB裡..讓VB在讀的時候只要Open "文字文件檔" for input as #1然後VB就可以讀

乾脆說攜帶型的檔案算了

3 個解答

評分
  • Tony
    Lv 6
    2 0 年前
    最佳解答

    沒有~~

    除非你的文字檔是不動的

    也就是無法改變資料這樣

    阿戊的VB實驗網頁裡面有程式包程式的範例

    你可以去改看看裡面放文字檔

    -------------------------------------------------------------------------

    以下範例有Text1陣列從0~2

    在C槽底下有個a.txt的文字檔,內容只剩定為3個

    如要增加內容請自行修改

    以下為程式碼範例:

    Private Sub Command1_Click()

    '讀出

    Dim Data(2) As String

    Open ("C:\a.txt") For Input As #1

    i = 0

    Do While Not EOF(1)

    Input #1, Data(i)

    i = i + 1

    Loop

    Close #1

    For i = 0 To UBound(Data)

    Text1(i) = Data(i)

    Next

    End Sub

    Private Sub Command2_Click()

    '寫入

    Open ("C:\a.txt") For Output As #1

    For i = 0 To 2

    Write #1, Text1(i)

    Next

    Close #1

    End Sub

    2005-05-24 23:19:09 補充:

    To 資深潛水員:

    是否有相關網站或者有範例檔可以下載呢?

    至於"小志"所寫的根本跟我一樣

    而且還是最初寫錯的

    根本不是發問者所要的

    不知道他的眼睛有沒有看清楚@@

    參考資料: http://slo.24cc.com/
  • 2 0 年前

    Open 路徑 For 類型 as 檔案編號

    讀寫類型,變數1......

    Close 檔案編號

    路徑的設定有...

    絕對路徑、相對路徑

    絕對路徑例如: C:\123\123.txt

    相對路徑例如:app.path & "\檔案名稱.txt"

    app.path 指的是程式所在的位置

    以下幾種相關程式碼範例供您參考 ^^

    Open "C:\download\test.txt" For Input As #1

    Do Until EOF(1) 'EOF 為檢查文字檔是否有讀至最後一筆

    Input #1, Tmp

    Loop

    Close #1

    Open App.Path & "\image\image.txt" For Input As #1

    For X = 0 To 11

    Input #1, PicSetSave(X)

    PicG(X).Picture = LoadPicture(App.Path & "\image\" & PicSetSave(X))

    Next X

    Close #1

    Open App.Path & "\map.txt" For Output As #1

    For Y = 0 To MapHeight - 1

    For X = 0 To MapWidth - 1

    If X <> MapWidth - 1 Then

    Write #1, Map(X, Y);

    Else

    Write #1, Map(X, Y)

    End If

    Next X

    Next Y

    Close #1

    Open App.Path & "\test.txt" For Random As #1 Len = Len(student)

    Get #1, Val(Right(Text1(0).Text, 2)), student

    If student.no = Text1(0).Text Then

    MsgBox ("欲新增之資料已存在")

    Else

    With student

    .no = Text1(0).Text

    .nm = Text1(1).Text

    .ad = Text1(2).Text

    .tel = Text1(3).Text

    .bri = Text1(4).Text

    End With

    Put #1, Val(Right(student.no, 2)), student

    MsgBox ("資料新增完成")

    End If

    Close #1

    http://vb.infoserv.com.tw/ 小熊資訊VB研究站

    可以去參考一下程式函數

  • 匿名使用者
    2 0 年前

    VB當然可以包文字檔啊 (內嵌到自己的執行檔案内)。

    其實不只可以含入文字檔,聲音(Wave) / 圖片(Bitmap,Icon,Cursor) / 視訊(AVI) / 二進制(Binary) 檔案等等類型都可以內嵌。

    請使用 資源檔 Resource Compiler。

    VB GUI介面 檔案 -> 資源檔;DOS介面在 VB光碟內,RC.EXE , RCDLL.DLL。

    將欲攜帶的檔案用 RC.EXE 編譯成 .RES,加入該專案內,編譯時,VB會自動將 .RES 內容內嵌到 .EXE 檔案内。

    將檔案內嵌並編譯製成 EXE 檔後,只要使用"提取"功能即可使用該資源。

    這也是 VB 的基本功能。

    不過,資源不能修改後再存入 .EXE 自身內。

    ---

    定義:

    ---

    文字檔也就是字串類型。

    用法範例:

    #Define TEXT1 1001

    #Define TEXT2 1002

    STRINGTABLE

    BEGIN

    TEXT1, "Hello"

    TEXT2, "World!"

    END

    以上 TEXT1 跟 TEXT2 都是 "ID識別字",1001 跟 1002 我不知道怎麼解釋,可以隨便取,但同一程式內數字不能重複。

    如果文件檔很大,可以一次全部複製再貼上。(希望你能明白我在說什麼....)

    除文字檔以外其他都是 二進制(Binary) 類型。

    用法為:

    ID Keyword Option-1 Option-2 Filename

    識別字 關鍵字/類型 選項1 選項2

    例如:

    MyPhoto BITMAP MyPhoto.bmp

    指定 MyPhoto.bmp 是 BITMAP 類型的檔案,而 MyPhoto 意義及用法類似程式碼中的"變數"。

    其他類型關鍵字尚有:

    BITMAP (.BMP) , ICON (.ICO) , CURSOR (.CUR) , VIDEO (.AVI) , SOUND (.WAV)

    可用的選項有:

    1. PRELOAD , LOADONCALL

    2. FIXED , MOVEABLE , DISCARDABLE

    ---

    提取:

    ---

    字串類型使用VB函數: LoadResString

    BMP/ICO/CUR 二進制(Binary) 類型使用VB函數: LoadResBitmap

    WAV/AVI 二進制(Binary) 類型使用VB函數: LoadResData

    詳細使用方式,請自己試試看。

    (我沒有 VB ,回答靠的是記憶,如有錯謬之處請見諒。)

    參考資料: 本草綱目
還有問題?馬上發問,尋求解答。