主题：[求助]老师，请问怎么控制流水号跳码。

甜老师，我没加固定号段，输入了跳号4和7，前面个位数的跳过了，后面的没跳，您看看，那个Array是哪来的，没看见前面有定义啊

不可能，测试没有问题啊，请看楼上啊

 

后面的没跳什么意思？个位数是4和7的都要跳？

您看，这个就是我用您的最后一次代码做的，后面的4 和 7 没跳

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:号码生成器.rar

就是所有含4和7的号码都要跳过

Dim qs As String = e.Form.Controls("起始号段").Text
Dim js As String = e.Form.Controls("结束号段").Text
Dim gs As String = e.Form.Controls("重复个数").Text
Dim gd As String = e.Form.Controls("固定号段").Text
Dim tg() As String = e.Form.Controls("跳过").Text.Split(",")
Dim fmt As String = "".PadLeft(qs.length,"0") '根据起始数得出数字占位长短
If gs = "" Or gs = "0" Then
    MessageBox.show("请输入重复个数,无需重复请输入1","错误输入",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    Dim str As String
    Dim tgnum As String
    For i As Integer = qs To js
        For s As Integer = 1 To gs
            Dim temp As String
            If gd > "" AndAlso e.Form.Controls("CheckBox1").Checked = True Then
                temp =  gd & Format(i,fmt) & vbcrlf
            Else If gd > "" AndAlso e.Form.Controls("CheckBox2").Checked = True Then
                temp = Format(i,fmt) & gd & vbcrlf
            Else
                temp = Format(i,fmt) & vbcrlf
            End If
            If array.Indexof(tg, cstr(i Mod 10)) = -1 Then
                str = str & temp
            End If
        Next
    Next
    Dim open As New SaveFileDialog
    open.Title = "保存号段"
    open.Filter = "文本文件|*.txt"
    open.OverwritePrompt = True
    If open.ShowDialog = DialogResult.OK Then
        FileSys.WriteAllText(open.FileName,str,False,Encoding.Unicode)
    End If
End If

甜版，恕我愚笨，没看懂您的代码，那个array.indexof，是什么意思，可能俺没表达清楚，我的意思是所有含4 和 7 的号码都要跳过，不只是个位数，40,70，只要有4和7的号码都跳过

Dim qs As String = e.Form.Controls("起始号段").Text
Dim js As String = e.Form.Controls("结束号段").Text
Dim gs As String = e.Form.Controls("重复个数").Text
Dim gd As String = e.Form.Controls("固定号段").Text
Dim tg() As String = e.Form.Controls("跳过").Text.Split(",")
Dim fmt As String = "".PadLeft(qs.length,"0") '根据起始数得出数字占位长短
If gs = "" Or gs = "0" Then
    MessageBox.show("请输入重复个数,无需重复请输入1","错误输入",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    Dim str As String
    Dim tgnum As String
    For i As Integer = qs To js
        Dim flag As Boolean = True
        For Each t As String In tg
            If cstr(i).Contains(t)  Then
                flag = False
            End If
        Next
        If flag Then
            For s As Integer = 1 To gs
                Dim temp As String
                If gd > "" AndAlso e.Form.Controls("CheckBox1").Checked = True Then
                    temp =  gd & Format(i,fmt) & vbcrlf
                Else If gd > "" AndAlso e.Form.Controls("CheckBox2").Checked = True Then
                    temp = Format(i,fmt) & gd & vbcrlf
                Else
                    temp = Format(i,fmt) & vbcrlf
                End If
                str = str & temp
            Next
        End If
    Next
    Dim open As New SaveFileDialog
    open.Title = "保存号段"
    open.Filter = "文本文件|*.txt"
    open.OverwritePrompt = True
    If open.ShowDialog = DialogResult.OK Then
        FileSys.WriteAllText(open.FileName,str,False,Encoding.Unicode)
    End If
End If

甜版，搞定了，您能告诉我下前面那个array.indexof是怎么来的吗，上文没定义，我自己在命令窗口测试都不行，为什么在您的代码里可以正常执行啊

 

https://msdn.microsoft.com/zh-cn/library/system.array_members%28v=vs.80%29.aspx