写入
Open App.Path & "\home.txt" For Output As #1
Print #1, "你要保存的网址"
Close #1
读取
Open App.Path & "\home.txt" For Input As #1
Line Input #1, url
MsgBox url 'url里面就是写入的网址了
Close #1
vb6.0如何读写TXT文本文件?
Close #1 读取 Open App.Path & "\\home.txt" For Input As #1 Line Input #1, url MsgBox url 'url里面就是写入的网址了 Close #1
vb6.0怎么读写文件?
读文件 Dim s As String Dim filename As String filename = shuxiang & xingzuo & ".txt"Open filename For Input As #1Do While Not EOF(1)Line Input #1, sPrint sLoopClose #1追加写文件Dim i As Integer, n As Integer, a(6) As Integern = 6Open "D:\\1122.txt" For Ap...
vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答：留个Q我传你个代码
VB6.0 语音读取text文本
需要系统tts语音库支持，使用代码：CreateObject("SAPI.SpVoice").Speak "要朗读的文字"也可以百度下，vb朗读 使用别的语音库控件！
VB6.0中如何实现逐行读入文本文件?
VB6.0可以用一次读取文本文件全部文本内容，然后使用Split函数来实现一行一行提取文本框行内容。Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。以下代码是可以提取文本文件任何一行内容的：Private Sub Command1_Click() Dim strWj As String Dim strj() As String Dim...
Vb6.0关于txt的读出
Private Sub Command1_Click()Text1.Text = lzReadFile("D:\\1.txt")End Sub 【函数】读文件函数 '--- '--参数：文件名(路径+名称)'--返回值：文件内容 '--- Public Function lzReadFile(ByVal strFileName As String) As String '文件句柄（文件号）Dim nFileNum As Long '存放文件内...
VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
FileName = "1.txt"On Error Resume Next FileNo = FreeFile Open PathName & FileName For Input As FileNo List1.Clear Do While Not EOF(FileNo) ' 循环至文件尾。Line Input #FileNo, tmp ' 读入一行数据并将其赋予某变量。List1.AddItem tmp ' 在立即窗口中显示数据。Loop C...
VB6.0如何读取TXT中的数据并求和
MsgBox "第一个文本框内容" & Text1.Text & "，第二个文本框内容" & Text2.Text & "第三个文本框内容" & Text3.Text & 总和 Text1.Text + Text2.Text + Text3.Text & "。"End Sub 读取文件的话，用下面的代码：Private Sub Command1_Click()Dim txt1 As String, txt2 As String...
VB6.0 读取文本每行内容,处理后写入另一文本?
可以通过以下步骤实现这个功能：打开文本文件a，并使用Line Input函数逐行读取内容。对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As...
VB6.0中 如何读取一个TXT中特定的一行字?
dim Str as string Open "D:\\a.txt" For Input As #1 Do Until EOF(1)Line Input #1,Str '读出一整行 if left(Str,1)="2" then msgbox "找到一行啦，其结果是=" & Str '判断左边是否是2，是就显示 Loop Close #1 更详细的还可以参考我的以下回答《关于如何读取TXT文件》：http...
