'(general declaration)
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
'==================================
Private Sub Command1_Click()
' Get a free file number
nFileNum = FreeFile
' Open a text file for input. inputbox returns the path to read the file
Open "C:\Documents and Settings\Sudeep\My Documents\3.txt" For Input As nFileNum
lLineCount = 1
' Read the contents of the file
Do While Not EOF(nFileNum)
  Line Input #nFileNum, sNextLine
  'do something with it
  'add line numbers to it, in this case!
  sNextLine = sNextLine & vbCrLf
  sText = sText & sNextLine
Loop
Text1.Text = sText
' Close the file
Close nFileNum
End Sub

希望本文所述對(duì)大家的VB程序設(shè)計(jì)有所幫助。

您可能感興趣的文章:

VB
文件

相關(guān)文章

VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫(kù)的ADODB代碼實(shí)現(xiàn)方法
這篇文章主要介紹了VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫(kù)的ADODB代碼實(shí)現(xiàn)方法,對(duì)于初學(xué)者掌握VB鏈接access數(shù)據(jù)庫(kù)有著很好的借鑒價(jià)值,需要的朋友可以參考下
2014-07-07
VB使用shell函數(shù)打開(kāi)外部exe程序的實(shí)現(xiàn)方法
這篇文章主要介紹了VB使用shell函數(shù)打開(kāi)外部exe程序的實(shí)現(xiàn)方法,是非常實(shí)用的一個(gè)功能,需要的朋友可以參考下
2014-07-07
VB簡(jiǎn)易記事本實(shí)現(xiàn)代碼
VB簡(jiǎn)易記事本實(shí)現(xiàn)代碼，需要的朋友可以參考下
2012-10-10
VB編程基礎(chǔ)課教程
VB編程基礎(chǔ)課教程...
2007-03-03
VB關(guān)機(jī)惡搞小程序
本文給大家匯總了一些使用VB實(shí)現(xiàn)的關(guān)機(jī)惡搞小程序，大家?jiàn)蕵?lè)一下就行了，千萬(wàn)別做壞事哦
2015-09-09
VB語(yǔ)言使用ADO連接、操作SQLServer數(shù)據(jù)庫(kù)教程
這篇文章主要介紹了VB語(yǔ)言使用ADO連接、操作SQLServer數(shù)據(jù)庫(kù)教程,本文講解詳細(xì)、代碼中有大量注釋,是非常好的一篇教程,需要的朋友可以參考下
2014-08-08
VBA數(shù)組用法案例詳解
這篇文章主要介紹了VBA數(shù)組用法案例詳解,本篇文章通過(guò)簡(jiǎn)要的案例,講解了該項(xiàng)技術(shù)的了解與使用,以下就是詳細(xì)內(nèi)容,需要的朋友可以參考下
2021-08-08
VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法,比較實(shí)用的功能,需要的朋友可以參考下
2014-07-07
VB XMLHTTP使用方法
VB判斷地址是否存在的XMLHTTP方法
2008-07-07
VB6.0 支持鼠標(biāo)滾輪教程
眾所周知，VB6.0一個(gè)十分蛋疼的問(wèn)題就是不支持鼠標(biāo)滾輪，要自己一點(diǎn)點(diǎn)地拖動(dòng)。微軟怎么會(huì)這么傻逼呢，so，微軟用VB6.0開(kāi)發(fā)了一個(gè)讓它支持鼠標(biāo)滾輪的插件。
2014-10-10