冰楓論壇

 找回密碼
 立即註冊
ads_sugarbook
搜索
查看: 1239|回覆: 1

[求助] VB6關於文字讀取寫出

[複製鏈接]

11

主題

0

好友

14

積分

新手上路

Rank: 1

UID
61210
帖子
136
主題
11
精華
0
積分
14
楓幣
16
威望
6
存款
0
贊助金額
0
推廣
0
GP
8
閱讀權限
10
性別
保密
在線時間
159 小時
註冊時間
2014-5-18
最後登入
2023-11-8

Apple勳章 2018萬聖節紀念勳章

發表於 2019-7-24 02:59:05 |顯示全部樓層
32楓幣
假設我有個文字檔案內容為
123
456
789
我該如何讓VB讀取此文字檔並一行一行寫出 。

已有 1 人評分楓幣 威望 GP 收起 理由
qwas963563 -10 -1 -1 求助文未分類

總評分: 楓幣 -10  威望 -1  GP -1   查看全部評分

50 字節以內
不支持自定義 Discuz! 代碼
複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$

66

主題

17

好友

390

積分

初級贊助會員

Rank: 5Rank: 5

UID
144692
帖子
785
主題
66
精華
0
積分
390
楓幣
32
威望
253
存款
547
贊助金額
500
推廣
44
GP
166
閱讀權限
60
在線時間
232 小時
註冊時間
2016-7-7
最後登入
2024-3-24

VIP會員 Android勳章 性別(男) 高級客戶 發帖達人 熱心助人 Apple勳章 2019年紀念勳章 神手勳章 2020年紀念勳章 論壇粉絲 積分勳章 懶人勳章 解說達人 太陽勳章 幼兒勳章 音樂勳章 2021年紀念勳章 2022年紀念勳章 2023年紀念勳章 2024年紀念勳章 論壇支持王

發表於 2020-2-29 10:26:54 |顯示全部樓層
本帖最後由 YYYpo 於 2020-2-29 11:17 編輯

VB6的話,我提供我之前寫的,給你參考
  1. Private Sub Command1_Click()
  2. On Error GoTo errHandle
  3. CommonDialog1.ShowOpen
  4. CommonDialog1.Filter = "文字處理檔案 (*.txt)|*.txt|"
  5. Open CommonDialog1.FileName For Input As #1
  6. While Not EOF(1)
  7. Input #1, textline
  8. Text2.Text = Text2.Text + textline + Chr(13) + Chr(10)
  9. Wend
  10. Close #1
  11. Exit Sub
  12. errHandle:
  13. MsgBox Err.Description, vbCritical, "讀取資料失敗!"
  14. End Sub
複製代碼
希望對你有幫助
[發帖際遇]: YYYpo 相信「年年繳黨費,勝過安太歲。」,因此繳交黨費 1 楓幣 幸運榜 / 衰神榜
點評回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies |上傳

廣告刊登意見回饋關於我們職位招聘本站規範DMCA隱私權政策

Copyright © 2011-2024 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|手機版|冰楓論壇

GMT+8, 2024-3-29 05:26

回頂部