自己写了个vb6代码成vb.net的自动替换程序,众人拾柴火焰高,大家都来帖自己遇到的呗~~
Private Sub Form_Load()Text1 = Clipboard.GetTextText1 = Replace(Text1, "List", "Listbox")Text1 = Replace(Text1, "Text", "Textbox")Text1 = Replace(Text1, "DoEvents()", "Application.DoEvents()")Text1 = Replace(Text1, "open ", "Dim Sw As StreamWriter = File.CreateText(路径)" + vbCrLf + "Sw.Write(内容)" + vbCrLf + "Sw.Close()" + vbCrLf)Text1 = Replace(Text1, "Right(", "Strings.Right(")Text1 = Replace(Text1, ".Add(", ".Items.Add(")Text1 = Replace(Text1, ".Count", ".Items.Count")Text1 = "private Declare Sub Sleep Lib ""kernel32 "" (ByVal dwMilliseconds As Long)" + Text1Text1 = Replace(Text1, ".Remove(", ".Items.Remove(")Clipboard.ClearClipboard.SetText Text1EndEnd Sub