VB 文本框显示通用对话框打开文本文件内容
通用对话框打开的内容怎么在文本框中显示网上查到都是open"d:\123.txt"forinputas#1dountileof(1)lineinput#1,stextbo...
通用对话框打开的内容怎么在文本框中显示
网上查到都是
open "d:\123.txt" for input as #1
do until eof(1)
line input #1,s
textbox.text=textbox.text & s & vbcrlf
loop
close #1
'保存textbox的内容到d:\新文件.txt
open "d:\新文件.txt" for output as #2
print #2,textbox.text
close #2 展开
网上查到都是
open "d:\123.txt" for input as #1
do until eof(1)
line input #1,s
textbox.text=textbox.text & s & vbcrlf
loop
close #1
'保存textbox的内容到d:\新文件.txt
open "d:\新文件.txt" for output as #2
print #2,textbox.text
close #2 展开
4个回答
展开全部
可使用CommonDialog
控件(“打开”、“另存为”对话框)
通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器,目录,文件扩展名和文件名。除对话的标题不同外,另存为对话外观上与打开对话相似。
在运行时,当用户选择一个文件“关闭”对话框时,FileName 属性既为选定的文件名。
实例代码:
Option Explicit
Dim s As String
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
2013-11-13
展开全部
你需要一个公用对话框控件,从部件选项中添加"Microsoft Common Dialog Control 6.0 (SP3)"
并将该控件放在窗体任意地方,名称默认为"CommonDialog1"
输入以下代码:
Private Sub Open_Click()'点击名为"Open"的按钮后
CommonDialog1.Filter = "TXT格式|*.txt|RTF格式|*.rtf|所有格式|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do until Eof(1)
Line input #1,s
Text1.Text = Text1.Text & s & vbCrlf
Loop
Close #1
End Sub
Private Sub Save_Click()'点击名为"Save"的按钮后
CommonDialog1.Filter = "TXT格式|*.txt|RTF格式|*.rtf|所有格式|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #2
Print #2,Text1.Text
Close #2
End Sub
并将该控件放在窗体任意地方,名称默认为"CommonDialog1"
输入以下代码:
Private Sub Open_Click()'点击名为"Open"的按钮后
CommonDialog1.Filter = "TXT格式|*.txt|RTF格式|*.rtf|所有格式|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do until Eof(1)
Line input #1,s
Text1.Text = Text1.Text & s & vbCrlf
Loop
Close #1
End Sub
Private Sub Save_Click()'点击名为"Save"的按钮后
CommonDialog1.Filter = "TXT格式|*.txt|RTF格式|*.rtf|所有格式|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #2
Print #2,Text1.Text
Close #2
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
jbp22d5f90f0a,你究竟是何方神圣?以jbp打头的名字上百个,财富值794710,提问数122627,回答数0,提问永远匿名,从不加分,很少采纳,每次一提问就是几十个问题一起发,举报管理员也不受理,你是管理员他爹?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-11-13
展开全部
这个肯定要用到文件操作的相关知识了.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询