台哥编程课堂

摘要： Public Class Form1 '将f:/123/文件下的txt文件改名（修改后的名字是0.txt,1.txt,2.txt.......） Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim files() As String '用于贮存文件名 Dim length As Integer = 0 'files数组长度 Dim fileName As Stri... 阅读全文

摘要： Option ExplicitPrivate Sub Command1_Click()Dim file_1, file_2 As String '文件名 file_1 = "f:123.txt"file_2 = "f:456.txt"Dim abc As String '所读取的文本文件的所有内容 Dim xyz As String '在循环中存放每行的内容 Open file_1 For Input As #1Open file_2 For Append As #2Do While Not EOF(1) '循环直至文件尾 阅读全文