's待處理的參數
Function cheakdepart ( s as string)
'先進行判斷
????? '聲明已知字符串的字節數、">"所在位置的變量
??? Dim n As Number? , m As Number
??? '聲明字符串變量

??? Dim s0 as string??

‘如果包含">"符號截取其后文本 ??????

??????? if (">" in s) then?? ?
??????? For n = 1 To Len(s) '這里用了Len函數來計算已知字符串的字節數
??????? m = InStr(s, ">", -1) '">"所在的位置(其中的-1是默認的)
??????? '顯示第一個">"后面的字符串
??????? s0 = Right(s, Len(s) - m)
??????? next n

??????? s0=Replace (s0, ">"," " )

’否則直接輸出

??????? else
??????? s0=s
??????? end if
??? cheakdepart =s0

End Function

?

?

?

?

?

?

string str="8,9,10,11,12,13";
string[] count=str.split(',')

返回的count.length就是6！

?

?INSTR()函數,有返回值就說名存在

?

報告指定的 ? String ? 在此實例中的第一個匹配項的索引。 ?
? ?
? [Visual ? Basic] ?
? Overloads ? Public ? Function ? IndexOf( ? _ ?
? ? ? ? ByVal ? value ? As ? String ? _ ?
? ) ? As ? Integer ?
? ?
? [C#] ?
? public ? int ? IndexOf( ?
? ? ? ? string ? value ?
? ); ?
? ?
? [C++] ?
? public: ? int ? IndexOf( ?
? ? ? ? String* ? value ?
? ); ?
? ?
? [JScript] ?
? public ? function ? IndexOf( ?
? ? ? ? value ? : ? String ?
? ) ? : ? int; ?
? ?
? 參數 ?
? value ? ?
? 要查找的 ? String。 ? ?
? 返回值 ?

? 如果找到該字符，則為 ? value ? 的索引位置；如果未找到該字符，則為 ? -1。如果 ? value ? 為 ? Empty，則返回值為 ? 0。 ??

?

?

?

int idx=str.IndexOf("，",0,n);
string newstr=str.SubString(0,idx);

newstr就是你想要的.

------------------

那這樣兒:

string[] s=str.Split('，');
string newstr="";
for(int iii=0;iii<n;iii++){
newstr=newstr+s[iii]+"，";
}
newstr=newstr.Substring(0,newstr.Length-1);

轉載于:https://www.cnblogs.com/glt3260053/archive/2009/02/18/1393306.html

總結

以上是生活随笔為你收集整理的水晶报表自定义函数（替换并截取特殊字符后内容）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。