摘要:Public Function ToSBC()Function ToSBC(ByVal input As String) As String '转全角 Dim c As Char() = input.ToCharArray Dim i As Integer = 0 While i 65280 AndAlso AscW(c(i)) < 65375 Then c(i) = ChrW...
阅读全文
posted @ 2006-05-24 11:34
浙公网安备 33010602011771号