Foxtable(狐表)官方栏目BUG收集 → 发现一个Bug,关于With


  共有2941人关注过本帖树形打印复制链接

主题:发现一个Bug,关于With

帅哥哟,离线,有人找我吗?
zhuya820
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
发现一个Bug,关于With  发帖心情 Post By:2021/7/11 9:58:00 [显示全部帖子]

Dim Str As String = "0 0" & Chr(10) & Chr(13) & vbcrlf & "0"
Dim Int As Integer
Output.Show("【第1次输出】")
With Str
    Str = Str.Replace(vbcrlf,Chrw(12276))
    Str = Str.Replace(Chr(13),Chrw(12276))
    Str = Str.Replace(Chr(10),Chrw(12276))
    Int = Str.Length
    For I As Integer = 0 To Int - 1
        Output.Show(Ascw(Str.Chars(I)))
    Next
End With
Output.Show("【第2次输出】")
Str = "0 0" & Chr(10) & Chr(13) & vbcrlf & "0"
With Str
    Str = .Replace(vbcrlf,Chrw(12276))
    Str = .Replace(Chr(13),Chrw(12276))
    Str = .Replace(Chr(10),Chrw(12276))
    Int = Str.Length
    For I As Integer = 0 To Int - 1
        Output.Show(Ascw(.Chars(I)))
    Next
End With
【输出结果】
【第1次输出】
48
32
48
12276
12276
12276
48
【第2次输出】
48
32
48
10
13
13
10
48
【问题】
Chr(10)在第2次是多余的,这问题搞了我昨天一下午,现在汇报给组织,忘改进!

 回到顶部