【VB】VB循环逐个截取字符串/逐位截取字符串

  • A+
所属分类:lcx

    VB循环逐个截取字符串,VB循环截取字符串,VB逐个截取字符串,VB截取字符串,VB截取字符,VB截取,VB循环逐位截取字符串,VB逐位截取字符串,VB逐位截取,VB逐位。

VB循环逐个截取字符串,VB循环逐位截取字符串:

Dim Str  As String, I, T, Tmp
Str = "0123456789"                                                              '要截取的字符串
T = 2                                                                           '每次截取位数
Tmp = Len(Str) / T                                                              '截取次数
If InStr(Tmp, ".") > 0 Then Tmp = Int(Tmp) + 1                                  '取整数
For I = 1 To Tmp                                                                '循环逐个截取
    MsgBox Mid(Str, (I - 1) * T + 1, T)
Next

VB循环逐个/逐位截取字符串2:

JQ:
DoEvents '转让控制权防止假死
If Len(x) >= 2 Then MsgBox Left$(x, 2): x = Mid(x, 2 + 1): GoTo JQ '每次截取两位
If x "" Then MsgBox x: x = "" '剩余的不足两位

文章来源于lcx.cc:【VB】VB循环逐个截取字符串/逐位截取字符串

相关推荐: “棱镜门”后美国安局“量子”项目,可入侵未联网电脑

“棱镜门”后美国安局“量子”项目,可入侵未联网电脑 jeary ((:?.kcaH eb nac gnihtynA)) | 2014-01-17 09:54 今天早上广播中无意听到一句“美国量子项目可向不联网机器植入恶意程序”,这句话立刻吸引了我的注意力。 这…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: