just_so_nb
2016-02-16 12:17
采纳率: 100%
浏览 2.3k
已采纳

如何用vb实现string类的indexof(substring)功能 求代码

不要求调用vb中的indexof功能,而是自己写。应该是类似于把string变成chars()然后自己查找位置之类的,但是不会写,求大神

  • 写回答
  • 好问题 提建议
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • threenewbee 2016-02-16 14:41
    已采纳
     最简单的
    function foo(str as string, sfind as string) as integer
    dim i as integer
    dim r as integer
    r = -1
    for i = 1 to len(str) - len(sfind) + 1
        if mid(str, i, len(sfind)) = sfind then
                r = i
                    exit for
            end if
    next
    foo = r
    end function
    
    评论
    解决 无用
    打赏 举报
  • 查看更多回答(1条)

相关推荐 更多相似问题