求高手帮我编个程序

来源：百度知道 编辑：UC知道 时间：2024/05/16 07:04:31
怎么个编法呢请看：“王心凌-热爱(国)(扬声)(左)”把他改成“热爱-王心凌（国）（扬升）（左）
也就是说“-”的内容倒过来，对了如果可以的话吧（）里面的文字都去掉包括里面的文字
编一个批量改文件名。批量哦
no
是批量哦

'我是假设楼主是问的批量修改下载的歌曲名，如果是的话就请继续往下看
'添加窗体Form1,文本框Text1,按钮Command1,然后添加如下代码:
Private Sub Form_Load()
    Me.AutoRedraw = True
    Text1.Text = "C:\music\"
    Print "默认处理的文件目录为""C:\music\""，你可以在下面修改"
    Command1.Caption = "开始处理"
End Sub

Private Sub Command1_Click()
    Call modifyFileName(Text1.Text)  '假如要处理的所有文件都在Text1.Text中的路径中
    MsgBox "处理完成！"
End Sub
'功能：修改文件名，规则：“歌手姓名-歌曲名称*.*”改为“歌曲名称-歌手姓名.*”
'入口参数：sPath，String型，要处理的文件所在的目录
Private Sub modifyFileName(sPath As String)
    Dim myName, sNameModi As String
    On Error