生成sql测试表

闲的无聊，想起以前在sql版回答问题总是要建立测试环境，而建立的过程挺慢的，需要引号逗号的。正好最近

想给程序员老婆写一些有助于她工作的小程序玩玩，所以写了下面的存储过程与大家分享，应该能快一点。

这个存储过程没有做什么优化，本着迅速写完能用就是了，

各位自己改编优化吧

create proc ctestsql(@c varchar(8000),@charlen int = 50,@numlen int = 6)
as
declare @coltype varchar(100)
declare @col varchar(100)
declare @sql varchar(8000)
declare @tmp varchar(100)
declare @firstrow varchar(8000)
set @sql = ''
declare @i int
set @i = 0

begin
  set @tmp = left(@c,1)
  while @tmp  in( char(13),char(10))
   begin
    set @c = right(@c,len(@c)-1)
    set @tmp =left(@c,1)
   end

  set @tmp = right(@c,1)
  while @tmp in(char(13),char(10))
   begin
    set @c = left(@c,len(@c)-1)
    set @tmp = right(@c,1)
   end
end
set @c = replace(replace(@c,char(9),','),char(13),' union all ')
set @c = replace(@c,char(10),char(10) +' select ')
set @firstrow = substring(@c,1,charindex('union',@c)-2) + ','
while (charindex(',',@firstrow)<>0)  
begin
set @col = substring(@firstrow,1,charindex(',',@firstrow)-1)
	if patindex('%[^0-9.]%',@col)=0
		begin
			set @coltype = 'numeric(18,'+ convert(varchar(2),@numlen) +')'
		end
	else
		begin
			set @coltype = 'varchar('+ convert(varchar(4),@charlen) +')'
		end
	set @i = @i + 1
	set @sql = @sql + 'col' + convert(varchar(2),@i) + space(1) + @coltype + ','+ char(13)
	set @firstrow = stuff(@firstrow,1,charindex(',',@firstrow),'')
end
set @c = replace(replace(replace(@c,',',''','''),' union all',''' union all'),'select ','select ''')
set @sql = left(@sql,len(@sql)-2)
set @sql = '--测试数据'+char(13)+'if object_id(''tempdb..#t'') is not null
drop table #t
create table #t(' + char(13) + @sql + ')'
set @sql = @sql + char(13)+char(13) + 'insert into #t ' + char(13) + 'select ''' + @c + ''''
set @sql = @sql + char(13)+char(13) +'--sql语句' + char(13)+char(13) + '--结果'
print @sql
-----------用法------------
--看上面的语句其实也可以看出来需要注意什么，
--但还是说下吧，首先我是取第一行测试数据为建立测试表的参考的，
--就是说第一行有几个数据，数据是什么类型建表就会默认什么多少个字段，类型
--参数@c也就是主要数据的要求，
--分隔符是tab，而不是空格，如果写成空格将会然后空格两旁是一个字段，
--行与行之间只能一次回车，我只判断了前后可以有多个回车换行，
--参数@charlen,@numlen 分别是建立测试表时候的varchar长度和numeric长度
ctestsql '

sdfsdf	dffdf	343
sdfdf	dfdf	343.6

'
-------结果------------

/*
--测试数据
if object_id('tempdb..#t') is not null
drop table #t
create table #t(
col1 varchar(50),
col2 varchar(50),
col3 numeric(18,6))

insert into #t 
select 'sdfsdf','dffdf','343' union all 
 select 'sdfdf','dfdf','343.6'

--sql语句

--结果
*/