用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.NET 自定义一个文件类型，比如 "XX.abc" 里面存储文本，且只能自己可以打开，如何实现？

Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串

Dim c$

c$ = ""

Do While m 0

r = m Mod 2

m = m \ 2

c$ = r c$

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

x = Mid(m, i, 1)

y = x * 2 ^ (8 - i)

z = z + y

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 字符串 转换问题

看你的描述，既然Gb2312能取得中文，说明你收到的文字编码是Gb2312。

字符和数字却使用unicode编码，不正常。你可以把char数组中的00去掉，

再用gb2312转换就应该没问题了。

去掉就是把有用的字符向前移动。

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 字符串之间的转换

那你就用文本文件的读取方式读回来，然后转换为二进制数组，再用二进制方式保存。

文章题目：vb.net字符串颠倒 c语言字符串颠倒函数编写
本文地址：http://njwzjz.com/article/hpjjpc.html