在VB中,对文本框中的内容进行编辑
删除空白行;
把HOST Name替换为"主机名";
删除带有2010的行:
最新回答
㈠朵烟熏的埖
2025-06-27 10:27:00
Private Sub Command1_Click()
Dim a As String
Dim sp() As String
Dim i As Integer
a = ""
sp = Split(Text1.Text, vbCrLf)
For i = 1 To UBound(sp)
If Len(sp(i)) <> 0 Then
If InStr(sp(i), "2010") = 0 Then
a = a & Replace(sp(i), "HOST Name", "主机名") & vbCrLf
End If
End If
Next
Text2.Text = a
End Sub
追问
等你,谢了
热门标签
