MyException - 我的异常网
当前位置:我的异常网» VB » 读取 .txt 文件内容后小写字母转大写的程序

读取 .txt 文件内容后小写字母转大写的程序(2)

www.MyException.Cn  网友分享于:2013-02-20  浏览:16次

        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 Sub

Private 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

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有