æ¹æ³ä¸:
ç¨å®é¿çStringåéè·åææ¬å
容ãç±äºå®é¿Stringåéæ¯æçä¸ç为65400,æ以å¨æå¼è¶
è¿32Kåèçæ件æ¶è¶
åºé¨åçåèå°æ æ³è·å:
Private Sub Command1_Cliack()
Dim sA As String * 65400 '声æå®é¿Stringåé
Open "F:\d.txt" For Binary As #1 'ç¨äºè¿å¶æå¼æ件
Get #1, , sA 'ç¨Getè¯å¥ä»æ件ä¸è·ååè
Text1 = sA 'æ¾ç¤ºæå¼çæ件
Close #1 'å
³éæ件
End Sub
æ¹æ³äº:
å
声æä¸å符串åéï¼ç¶åç¨ç©ºæ ¼å¡«å
å符串ï¼ä½¿åé大å°ä¸æ件大å°ä¸è´ï¼åéè¿Getè¯å¥å°æ件å
¨é¨æ°æ®åå¨å°åéä¸ï¼ä»èè¾¾å°è·åæ´ä¸ªæ件åèæ°çç®çãæ¤æ³å¯ä»¥æå¼å¤§äº32Kçæ件ï¼ä½åºè¯¥æ³¨æçæ¯ï¼è£
è½½æ件ç容å¨å¿
é¡»è½è£
载大äº32Kçæ件ï¼ä¸ä¾ç¨RichTextBoxæ§ä»¶æ¾ç¤ºæå¼çæ件ï¼
Private Sub Command1_Click()
Dim sA As String
Open "f:\d.txt" For Binary As #1
sA = Space(LOF(1)) 'ç¨ç©ºæ ¼å¡«å
sAåé
Get #1, , sA 'ç¨Getè¯å¥è·åæ件å
¨é¨å
容
RichTextBox1.Text = sA
Close #1
End Sub
温馨提示:答案为网友推荐,仅供参考