- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]老师，请问怎么控制流水号跳码。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65249)
-- 发布时间：2015/3/12 13:48:00
-- [求助]老师，请问怎么控制流水号跳码。
固定号段的功能和重复个数的都写好了，就是跳号的搞不定，我昨天搞了一晚上，如果跳一个号可以写好，
-- 发布时间：2015/3/12 13:49:00
--
我的附件呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:号码生成器.rar |
此主题相关图片如下：qq截图20150312134403.png
-- 发布时间：2015/3/12 14:05:00
--
老师们都去哪了
-- 发布时间：2015/3/12 14:07:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65195&skin=0
dim snum as string = "001" dim lnum as string = "010" dim fmt as string = "".PadLeft(snum.Length, "0") dim len as string = 2 dim str as string = "" for i as integer = snum to lnum dim b as bool =true for each s as string in str.split(",") if Val(s) = i then b=false end if next if b then for j as integer = 1 to lenstr &= format(i, fmt) & vbcrlf next next end if msgbox(str) |
-- 发布时间：2015/3/12 14:07:00
--
老师们也是人,也要吃喝拉撒睡
-- 发布时间：2015/3/12 14:19:00
--
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, i) = -1 AndAlso array.IndexOf(tg, Format(i,fmt)) = -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
-- 发布时间：2015/3/12 18:27:00
--
测试了下甜老师的代码，不起作用，Bin老师的代码有点没看懂,那个Val（）是什么意思
-- 发布时间：2015/3/12 18:37:00
--
Val是转换函数，刚查了下帮助
-- 发布时间：2015/3/12 19:09:00
--
不能不起作用，测试有效。去重复那里，直接写整数或者起始号段那种的，不要加上固定号段
-- 发布时间：2015/3/12 19:19:00
--
改一下
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)) = -1 AndAlso array.IndexOf(tg, Format(i,fmt)) = -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