求一个读取 .txt 文件内容后小写字母转大写的程序

Question

本帖最后由 free4537 于 2013-02-05 22:28:35 编辑

Answer 1

Open "C:\1.txt" For Binary As #1
    Text1.Text = UCase(Input(LOF(1), #1))
Close #1 

Answer 2

在窗口代码中加入以下代码，然后运行，把文件拖入窗口就可以了Private Sub Form_Load()
    Me.OLEDropMode = 1
End SubPrivate Sub Form_OLEDragDrop(Data As DataObject, _
                             Effect As Long, _
                             Button As Integer, _
                             Shift As Integer, _
                             X As Single, _
                             Y As Single)
    If Data.GetFormat(vbCFFiles) = False Then
        Effect = vbDropEffectNone
        Exit Sub
    End If
    Effect = vbDropEffectMove
    Dim i           As Long, _
        fd1         As Integer, _
        fd2         As Integer, _
        strTemp     As String, _
        strFName    As String, _
        strFPath    As String
    For i = 1 To Data.Files.Count
        strFName = Dir(Data.Files.Item(i), vbHidden + vbReadOnly + vbSystem)
        strFPath = Left(Data.Files.Item(i), Len(Data.Files.Item(i)) - Len(strFName))
        Name strFPath & strFName As strFPath & strFName & ".bak"
        fd1 = FreeFile
        Open strFPath & strFName & ".bak" For Input As #fd1
        fd2 = FreeFile
        Open strFPath & strFName For Output As #fd2
        Do While Not EOF(fd1)
            Line Input #fd1, strTemp
            Print #fd2, UCase(strTemp)
        Loop
        Close #fd2
        Close #fd1
        Kill strFPath & strFName & ".bak"
    Next i
    MsgBox "转换完成"
End SubPrivate Sub Form_OLEDragOver(Data As DataObject, _
                             Effect As Long, _
                             Button As Integer, _
                             Shift As Integer, _
                             X As Single, _
                             Y As Single, _
                             State As Integer)
    If Data.GetFormat(vbCFFiles) = False Then
        Effect = vbDropEffectNone
        Exit Sub
    End If
    Effect = vbDropEffectMove
End Sub

Answer 3

我提供程序并不是赞成你的伸手党，只不过是为那些对OLE拖放感兴趣的朋友提供范例。