vb.net字符串反转 C#字符串反转
gb2312>unicode>utf8， 以及逆转的方法'>VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8， 以及逆转的方法
字符编码转换吗?
成都创新互联长期为近1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为关岭企业提供专业的网站设计、做网站，关岭网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
1.字符与gb2312(gbk的子集)：
Public Function GBKEncode(ByVal sInput As String) As String
Dim ret_GBKEncode As String = ""
Dim i As Integer
Dim startIndex As Integer = 0
Dim endIndex As Integer
Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的
endIndex = x.Length - 1
For i = startIndex To endIndex
ret_GBKEncode = "%" Hex(x(i))
Next
Return ret_GBKEncode
End Function
'GBK解码
Public Function GBKDecode(ByVal sInput As String) As String
sInput = sInput.Replace("%", "")
Dim ret_GBKDecode As String = ""
Dim sLen As Integer = sInput.Length
Dim n As Integer = sLen \ 2
Dim sBytes(0 To n - 1) As Byte
'转化为字节码
For i As Integer = 1 To n
sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))
Next
'将字节码转化为字符串
ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)
Return ret_GBKDecode
End Function
2.Unicode字符串为UTF-8
Imports System.Text
Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
Dim bytes() As Byte
bytes = Encoding.UTF8.GetBytes(strData)
Return bytes
End Function
'这里可以类推出好几种。
vb中将字符串反转的代码是什么?
代码如下,你在Text1中输入原字符串后按Command1按钮Text2中就出现与原字符串逆序的字符串:
Dim Str as String
Private Sub Form_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command1_Click()
Str = Text1
Text2 = StrReverse(Str)
End Sub
用VB6.0写字符串反转的程序
REM 这是VB.NET写的函数 VB6应该也是一样的
Function StrReverse(ByVal str As String)
Dim str2 As String = ""
Dim cs As Char() = str.ToCharArray()
For i As Integer = cs.Length - 1 To 0 Step -1
str2 = str2 + cs(i)
Next
Return str2
End Function
在VB中,创建程序,将输入的字符串颠倒输出,要求用DO While和Do until 实现
用 Do While 实现：
Private Sub Form_Click() '点击窗体运行
s = InputBox("请输入一个字符串")
n = 1
t = ""
Do While n = Len(s)
t = Mid(s, n, 1) t
n = n + 1
Loop
MsgBox "颠倒输出 " t
End Sub
用 Do Until 实现：
Private Sub Form_Click() '点击窗体运行
s = InputBox("请输入一个字符串")
n = 1
t = ""
Do Until n Len(s)
t = Mid(s, n, 1) t
n = n + 1
Loop
MsgBox "颠倒输出 " t
End Sub
友情附赠最简单的实现方法：
Private Sub Form_Click() '点击窗体运行
MsgBox "颠倒输出 " StrReverse(InputBox("请输入一个字符串"))
End Sub
VB.NET中如何将一个转化为字符串，并取它的每一个字符
VB.NET 整型 i 转化为字符串 s , 字符串 s 转化为字符数组 CharArr :
Dim i As Integer = 12345
Dim s As String
Dim CharArr As Char()
s = i.ToString()
CharArr = s.ToCharArray()
将 CharArr 数组反转:
Array.Reverse(CharArr)
VB.NET中字符串倒序的问题
好象有个StrReverse函数是直接反转字符串的吧..
我平时用的是VB6.但是.NET中应该也是可以用MID的
你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..
你看看MID运行不了时,是不是返回I是0的时间
改成:
For i = Len(sstr) To 1 Step -1
试试了?
分享名称：vb.net字符串反转 C#字符串反转
标题网址：http://azwzsj.com/article/hipddj.html
