好象有个StrReverse函数是直接反转字符串的吧..
创新互联建站是一家专业提供元谋企业网站建设,专注与成都网站建设、成都做网站、HTML5、小程序制作等业务。10年已为元谋众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
我平时用的是VB6.但是.NET中应该也是可以用MID的
你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..
你看看MID运行不了时,是不是返回I是0的时间
改成:
For i = Len(sstr) To 1 Step -1
试试了?
for i = 0 to 4
temp = A( 10 - i ) 'A( 10 - i ) 赋给中间变量 temp
A( 10 - i ) = A( 1 + i ) 'A( 10 - i ) 等于 A( 1 + i )
A( 1 + i ) = temp ' A( 1 + i ) 等于中间变量 temp
next
你可以使用Arraylist数组类，这个数组类存放元素可以动态添加和删除．而且可以存放任何类型的数据！
dim arr as New ArrayList() ’将变量arr定义为Arraylist类
以下是该类的常用方法：
arr.add() ’将括号内的数据添加到数组的末尾
arr.count '返回数组元素的总数目
arr.item（） ’设定或取得由索引所指的数组元素内容
arr.sort() ’将数组内所有元素以递增方式排序
arr.Reverse（） ’将数组类中的所有元素反转（颠倒顺序），配合sort方法可以实现降序排列
arr.insert(索引值，数据) ’在数组指定索引值的位置插入数据
arr.clear（） '清除所有数组元素
arr.indexof（） ’返回数组中第一个符合指定对象的索引值，未找到返回负值
arr.binaryserach（） ’在数组中寻找指定对象，找到返回该对象的索引，否则返回负值；此方法使用前，必须先将数组作升序排列．
以上VB2005版本适用
strReverse("abcd") 我还真不知道 呵呵。
我原来用循环 解决。
看来落后了
a="abcdef"
la=len(a)
for i=1 to la
b=b mid(a,la-i+1,1)
next i
'b和是a倒过来了，估计是strReverse函数的分解吧 哈哈
2.可以有两种做法 1.ASCII检测:
a="DK253+234.24"
la=len(a)
for i=1 to la
c=mid(a,la-i+1,1)
if Asc(c)=46 or (Asc(c)=48 and Asc(c)=57)then b=b c
next i
'或，混用拉
a="DK253+234.24"
la=len(a)
for i=1 to la
c=mid(a,la-i+1,1)
if Asc(c)=46 or IsNumeric(Asc(c)）then b=b c
next i
’补充问题我不明白你什么意思啊
1、用len(字串)得到输入字符串的长度n
2、然后用n循环
注：循环体内用left(字串，x)得到该字符串的第x个字母。x反着循环，按这顺序依次加进一个新的字符串变量即可。
字符编码转换吗?
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
'这里可以类推出好几种。
