锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net字符串颠倒 vb怎么把字符串倒着输出

IT技术字符串

高分悬赏： VB.net 字符串 转换问题看你的描述，既然Gb2312能取得中文，说明你收到的文字编码是Gb2312 。
字符和数字却使用unicode编码，不正常 。你可以把char数组中的00去掉，
再用gb2312转换就应该没问题了 。
去掉就是把有用的字符向前移动 。
VB.NET 自定义一个文件类型，比如 "XX.abc" 里面存储文本，且只能自己可以打开，如何实现？Function ByteToBin(m As Byte) As String' 将字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m0
r = m Mod 2
m = m \ 2
c$ = rc$
Loop
c$ = Right("00000000"c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String' 将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1)x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte' 将八位二进制串转换成十进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
【vb.net字符串颠倒 vb怎么把字符串倒着输出】x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = zy
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("请输入要加密的文件名！注意加上路径名：")
If Dir(fname) = "" Then
MsgBox "文件不存在！"
Exit Sub
End If
Open fname For Binary As #1' 以二进制访问模式打开待加密文件
For i = 1 To LOF(1)' LOF函数是求文件长度的内部函数
Get #1, i, x' 取出第i个字节
x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
Put #1, i, x' 将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "完成！"
End Sub
退出：Unload Me
网上帮你找的，如果不符合你的要求，你可以再去网上在搜搜，有很多代码的 。
VB.NET中字符串倒序的问题好象有个StrReverse函数是直接反转字符串的吧..
我平时用的是VB6.但是.NET中应该也是可以用MID的
你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..
你看看MID运行不了时,是不是返回I是0的时间
改成:
For i = Len(sstr) To 1 Step -1
试试了?
gb2312>unicode>utf8 ， 以及逆转的方法'>VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8，以及逆转的方法字符编码转换吗?
1.字符与gb2312(gbkvb.net字符串颠倒的子集)vb.net字符串颠倒：
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编码存储vb.net字符串颠倒的
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.net字符串颠倒和vb怎么把字符串倒着输出的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：做直播为什么没人说话，为什么有些人直播不说话

    下一篇：u盘里面的东西怎么更新，u盘怎么升级内存