我現在獲取到 一串字串 ，現在要做的是定義一個方法，實作的功能是，如果這個字串中包含分號和句號，那么就自動換行，也就是將字串拆分出來，但是還是一個字串，寧外 我這個是做報表用的，希望有會的人能夠幫幫我。
舉個例子 “1：abcd；2：adfg；3：asdvc。”
實作方法后
“1：abcd；
2：adfg；
3：asdvc。”
uj5u.com熱心網友回復：
Dim s As String
s = "1：abcd；2：adfg；3：asdvc。"
Debug.Print s & "|"
s = Replace(s, "；", "；" & vbCrLf)
s = Replace(s, "。", "。" & vbCrLf)
If Right$(s, 2) = vbCrLf Then '去掉末尾換行'
s = Left$(s, Len(s) - 2)
End If
Debug.Print s & "|"
1：abcd；2：adfg；3：asdvc。|
1：abcd；
2：adfg；
3：asdvc。|
uj5u.com熱心網友回復：
額，這樣可以定義成一個方法嗎，而且我是放在報表rdl 里面的uj5u.com熱心網友回復：
這樣的 定義成方法要怎么寫呢，而且我這個是放在報表里面的，debug 不能放在自定義代碼里面吧uj5u.com熱心網友回復：
function f(byval s as string) as string
s = Replace(s, "；", "；" & vbCrLf)
s = Replace(s, "。", "。" & vbCrLf)
If Right$(s, 2) = vbCrLf Then '去掉末尾換行'
s = Left$(s, Len(s) - 2)
End If
f = s
end function
uj5u.com熱心網友回復：
唉并沒有用啊。顯示出來的還是在一行里面uj5u.com熱心網友回復：
那是顯示的問題，你報表的格式就是單行的。uj5u.com熱心網友回復：
s = Replace(s, "；", "。") //將所有被認為需要換行的符號轉換為。dim A() as string
A=split(s,";") //A陣列每個單元對應于一行
uj5u.com熱心網友回復：
報表格式文本框也沒有那個屬性換成多行吧uj5u.com熱心網友回復：
這樣應該也不行，真的可能是報表格式問題
uj5u.com熱心網友回復：
分離出來，只要在后面加上vbcrlf就可以了。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86825.html