VB文本格式转换问题

答案：关于回答的补充:
 截取字符用mid函数,从哪里截取,截取多少都可以设置
  
Mid 函数
  
  
  
返回 Variant (String)，其中包含字符串中指定数量的字符。
  
语法
  
Mid(string, start[, length])
  
Mid 函数的语法具有下面的命名参数：
  
部分 说明
  string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
  start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
  length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
  
  
说明
  
欲知 string 的字符数，可用 Len 函数。
  
    ======================
  
a="123" & vbcrlf & "345" & vbcrlf & "789"
  b=replace(a,vbcrlf,"")
  msgbox b
  不知道是不是你要的效果,把换行符替换成空就行了
Private Sub Command1_Click()
a = Replace(Text1, vbCrLf, "")  '将text1中的换行符替换成空并将内容赋予给变量a
Print a
End Sub

上一个：VB中 ActiveX 控件是什么意思呢???
下一个：VB获取CMD执行结果