主题：[分享] 考古心得

近来沉醉于考古------翻看很久很久以前的【精华主题】。

挖掘出一件有价值的文物，原帖地址如下：

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9770&authorid=0&page=7&star=1

本人喜好通用，借花献佛，整理如下：

原字符串长度、插入字符串长度、间隔长度；原字符串、插入字符串都可以自定。

（在命令窗口，测试方便，但因为输入框自动删除空格，无法直接插入空格，可先输入“空”代替空格，代码会自动替换）

Dim str As String = "好人32326777e288啦828a88bc6d78901234567890"
InputValue(str,"","请输入原字符串")
Dim s As String
InputValue(s,"","请输入插入字符串")
Dim Int As Integer = 1
InputValue(Int,"","请输入插入间隔长度")
If Int = 0 Then
    Return "除数不能为零"
End If
If str.Length Mod Int = 0 Then
    For i As Integer = Int To (str.Length \ Int) * (s.Length + Int) - s.Length - 1 Step s.Length + Int
        str = str.Insert(i,s)
    Next
Else
    For i As Integer = Int To (str.Length \ Int) * (s.Length + Int) - s.Length Step s.Length + Int
        str = str.Insert(i,s)
    Next
End If
str = str.Replace("空"," ")
Output.Show(str)