|
首先，建立两个textbox,其实，text1是读取的文件路径和文件名。text2是输出的txt文件的文件夹位置，因为程序比较简单，因此不加判断是否存在文件夹等问题，请事先建好文件夹。然后一个command button按钮。最后在代码窗口里添加如下内容即可。Private Sub Command1_Click()On Error Resume NextDim s As StringDim t() As StringOpen Text1 For Input As #1Do While Not EOF(1)Line Input #1, st = Split(s, ",")Call SC(Left(t(1), 1), s)L... |
