- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请教老师，重复号段生成要怎么实现，如图. (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65195)
-- 发布时间：2015/3/11 10:25:00
-- [求助]请教老师，重复号段生成要怎么实现，如图.
点击生成之后生成一个txt文档
此主题相关图片如下：001.png
此主题相关图片如下：002.png
-- 发布时间：2015/3/11 10:31:00
--
dim i1 as integer = Cint(e.form.controls(X).text)
dim i2 as integer = Cint(e.form.controls(X).text)
dim i3 as intger = Cint(e.form.controls("重复次数").text)
dim str as string
for i1 to i2
for i as integer = 1 to i3
str = str & i1 & vbcrlf
next
next
FileSys.WriteAllText("C:\\data\\Table.Txt", str , True)
-- 发布时间：2015/3/11 10:34:00
--
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
for j as integer = 1 to len
str &= format(i, fmt) & vbcrlf
next
next
msgbox(str)
-- 发布时间：2015/3/11 10:34:00
--
生成.txt参考
http://www.foxtable.com/help/topics/0345.htm
-- 发布时间：2015/3/11 14:58:00
--
感谢两位老师
-- 发布时间：2015/3/11 15:17:00
--
学习了 顺便问下版主我发不了主题
-- 发布时间：2015/3/11 15:19:00
--
以下是引用qqq310在2015/3/11 15:17:00的发言：
学习了 顺便问下版主我发不了主题
呃，谁都可以发的。不存在谁不能发的情况。
你换个浏览器试试