vb中读写文本文件

Dim str As String Private Sub Command1_Click() On Error GoTo err     cdc.DialogTitle = "选择你要打开的文件"     cdc.InitDir = "c:\"     cdc.Filter = "*.txt|*.txt"     cdc.ShowOpen     Open cdc.FileName For Input As #1     If LOF(1) > 0 Then       Text1.Text = ""      While Not EOF(1)       x = DoEvents       Line Input #1, str       Text1.Text = Text1.Text + str + vbCrLf '     Debug.Print str      Wend     End If     Close #1     Exit Sub err:     MsgBox "open file error"     Unload Form1 End Sub Private Sub Command2_Click() On Error GoTo err     cdc.DialogTitle = "选择你要保存的文件"     cdc.InitDir = "c:\"     cdc.Filter = "*.txt|*.txt"     cdc.ShowSave     Open cdc.FileName For Output As #2     Print #2, Text1.Text     Close #2     Exit Sub err:     MsgBox "open file error"     Unload Form1 End Sub

<script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/buttonLite.js#style=-1&uuid=&pophcol=3&lang=zh"></script> <script type=text/javascript charset=utf-8 src="http://static.bshare.cn/b/bshareC0.js"></script>

阅读(12064) | 评论(1) | 转发(0) |

0

上一篇：vb连接SQL SERVER

下一篇：mysql_connect() Fatal error: (转)

相关热门文章

• CFS调度中计算vruntime增量的...
• 沙尘4袭蓉城以PM10为主，PM2.5...
• 沙尘4袭蓉城以PM10为主，PM2.5...
• “二十四孝”故事：孝德感召...
• 强奸逆子到底是否受人指使...

• 五十音图表
• 五十音图表
• MT6226，MT6227手机视频驱动下...
• 2007年职称计算机考试试题题库...
• 历年全国大学生英语竞赛C级真...

• 矩阵转置

给主人留下些什么吧！~~

chinaunix网友2006-05-27 16:01:26

Good！！！

回复 | 举报

评论热议