分别有两个文本1.txt 和2.txt在1里内容是abc,..............

来源：百度知道 编辑：UC知道 时间：2024/09/24 05:02:12
分别有两个文本1.txt 和2.txt在1里内容是abc,怎么建一个工程,分别为三个命令按钮,C1 C2 C3 标题分别为输入.转换.保盘.还有一个文本框,点输入按钮读入1.txt到文本框.转换刚转为大写,单击存盘则把TEXT1中的内容存入2.txt

建三个命令按钮,一个文本框(把三个按钮的Name属性 依次改为C1 C2 C3 Caption属性 依次改为输入.转换.保盘)

代码如下：

Private Sub C1_Click()
Open App.Path & "\1.txt" For Input As #1
Input #1, c
Close #1
Text1.Text = c
End Sub

Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub

Private Sub C3_Click()
Open App.Path & "\2.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

UCase(字符串),把一个字符串的所有字母转换为大写字母