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

Woodz 2013-02-05 10:11:08
最好是 .txt 文件拖动到 VB 程序后就可以直接转换, 而不是还需要先选择文件然后等等.

好吧, 我承认我是伸手党... 曾学过 VB, 但当时学得不好而且学过的部分也忘记的差不多了, 手上还没有书. 即使这段时间学一个可视化编程语言的话, 也优先选 C#...
不过现在确实需要这么个小程序, 蛮实用的. 所以求个现成的, 记住了, 到哪无网, 不可使用外接存储设备但有 VB 开发环境的地方去把它写出来.
...全文
1139 5 点赞 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
我提供程序并不是赞成你的伸手党,只不过是为那些对OLE拖放感兴趣的朋友提供范例。
  • 打赏
  • 举报
回复
在窗口代码中加入以下代码,然后运行,把文件拖入窗口就可以了

Private Sub Form_Load()
    Me.OLEDropMode = 1
End Sub

Private 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 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
  • 打赏
  • 举报
回复
vansoft 2013-02-06
一物换一物。
  • 打赏
  • 举报
回复
Woodz 2013-02-06
引用 4 楼 SupermanKing 的回复:
我提供程序并不是赞成你的伸手党,只不过是为那些对OLE拖放感兴趣的朋友提供范例。
呵呵, 不管怎么说, 还是谢谢你~
  • 打赏
  • 举报
回复
threenewbee 2013-02-05
Open "C:\1.txt" For Binary As #1 Text1.Text = UCase(Input(LOF(1), #1)) Close #1
  • 打赏
  • 举报
回复
相关推荐
军队作战SLG小游戏策划案+公式设计+JSON实例模拟打包 公元135年,相传高祖病重继无人,宦官专权祸乱朝纲,同年群雄逐鹿风起云涌。乱世的暗流涌动,引起了不少英雄豪杰的注意。在广袤的疆域上,战马赫赫战鼓阵阵,纷飞的战火中,是敌人还是朋友也逐渐清晰了起来,这一战不止为了义气还为了和平。 在你身边的有从军队中一路砍杀过来的勇士,也有行侠仗义的游侠,也有代父从军的女子,也有从小被培养的刺客。他们组成了一支军队,运用自己擅长的作战方式,听从你的指挥,一切性命都系在你的身上,如何判断作战情况都在你的一念之间。当然军师会协助你,招兵买马,扩充军队,上阵步兵,作战方式均可与其商讨,谋而立裁决果断并不冲突。 当然战场上武器一定是需要配备的,作战中失去了武器就等同于失去了性命,如何为军队中所有人配置趁手的武器也是作为主帅的你需要考虑的事情。训练军队的同时也要建设城镇,满满的谷仓,成群的鸡鸭,方有稳健的保障,前方作战才能更加的果敢。 乱世出英雄,在各种战役中飞快成长,创建一番属于自己的天地吧 实例对比描述: 实例说明: 实例展示了不同情况的军队作战效果,只需要调整参数既可以达到差异化目的。 第一组实例:1000军队的骑兵对战1000军队的骑兵,先手攻击方的
发帖
VB基础类
加入

7545

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2013-02-05 10:11
社区公告
暂无公告