"全角aa半角" → "全角aa",保留前導/中間空格,僅刪除結尾半角空格(ASCII 32)。
Dim s As String = "全角aa半角"
s = s.TrimEnd(" "c) ' 僅移除結尾半角空格
' 若同時需移除全角空格 (U+3000)
s = s.TrimEnd(" "c, ChrW(&H3000))
Imports System.Text.RegularExpressions
s = Regex.Replace(s, "[ \u3000]+$", "") ' 結尾一個或多個半角/全角空格
| 輸入 | TrimEnd(" "c) | Regex |
|---|---|---|
| 全角aa全角 | 全角aa全角 | 全角aa全角 |
| 全角aa半角 | 全角aa | 全角aa |
| 全角a全角 | 全角a全角 | 全角a全角 |
| 全角a半角a全角 | 全角a半角a全角 | 全角a半角a全角 |
推薦 TrimEnd,語義清晰、性能最優;需同時處理全角空格時加入 ChrW(&H3000) 或用正則。