VB文本替换求改错```PrivateSubCommand1Click()DimsAsStringDimsLineAsStringlj=App.Path&"\"&Text1.Text&".txt"lj2=App.Path&"\完成文件\"&Text1.Text&".txt"s=""OpenljForInputAs#1DoWhileNotEOF(1)LineInpu

Question

VB文本替换 求改错```Private Sub Command1_Click() Dim s As String Dim sLine As String lj = App.Path & "\" & Text1.Text & ".txt" lj2 = App.Path & "\完成文件\" & Text1.Text & ".txt" s = "" Open lj For Input As #1 Do While Not EOF(1) Line Input #1, sLine s = s & sLine Loop Close #1 s = Replace(s, vbCrLf, "") s = Replace(s, " ", "") Open lj2 For Output As #2 Print #2, s Close #2 Text1.Text = Text1.Text + 1 End Sub Private Sub Form_Load() On Error Resume Next Text1.Text = "000" Text2.Text = " " Command1.Caption = "替换" MkDir (App.Path & "\完成文件\") End Sub 窗体上有1个按钮 2个文本框 默认名字有一点小问题 怎么让text1.text的文本始终是3位呢 不足3位前面补零只有一位的话 文件路径不正确我还想在里面加一个模糊替换 text2.text里的是需要替换的内容 有多个 但是不知道怎么写 例如文本框text2里的内容是这样: 今天星期几五号要上班啊。。。。里面有3个字符串 全替换成空就可以了

Answer 1

text1.text=right("000"+你的字符串,3)