欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

程序员必备之:Excel二维表数据转SELECT CASE 工具

程序员文章站 2022-06-14 15:24:39
...

功能说明:

程序员用二维表转Excel二维表数据转SELECT CASE 工具等。

操作步骤:

1. 复制Excel二维结构表到上边文本框。
2. 提交得到:asp php js三种语言的switch case。

备注说明:

1. 复制数据:首行列标题,以后一行一条数据。
2. 列标题得是英文,因为程序语言都是英文。

 

<%
sfzhs=request.form("name")
names=sfzhs
title="程序员必备之:Excel二维表数据转SELECT CASE 工具"
%><!doctype html>
<html lang="zh-CN">
<head>
<meta charset="gb2312" />
<meta name="viewport" content="width=device-width,minimum-scale=1.0,maximum-scale=1.0" />
<meta name="apple-mobile-web-app-capable" content="yes" />
<title><%=title%>,96448.cn</title>
<meta name="author" content="yujianyue, [email protected]">
<meta name="copyright" content="www.12391.net">
<style>
*{margin:0;padding:0;font-size:14px;line-height:150%;font-family:"microsoft yahei",SimHei;}
body,html{height:100%;text-align:center;overflow:hidden;background-color:#d0d0d0;}
.html{height:100%;width:100%;position:relative;overflow-y:auto;overflow-x:hidden;}
strong{color:red;}
span{color:green;}
a{color:blue;text-decoration:none;}
a:hover {text-decoration:none;color:green;}
.r {text-align:right;width:30%;}
.l {text-align:left;color:green;}
h3 {color:green;font-size:18px;}
.simg{width:50%;min-width:88px;max-width:188px;}
#divs{margin:0 auto;min-height:98%;position:relative;box-sizing:border-box;}
.divs{width:100%;max-width:1200px;min-width:300px;background-color:#F0F0F0;}
strong{color:red;}
.head{position:fixed;top:0px;margin:0 auto;width:100%;max-width:1200px;min-width:300px;z-index:10;display:block;}
#head{line-height:180%;background-color:#0180CF;font-size:16px;line-height:40px;color:white;}
.back{position:absolute;right:9px;top:0px;line-height:40px;}
.d {border:1px white solid;line-height:150%;color:white;font-size:12px;padding:3px 5px;}
.d:hover {text-decoration:none;background-color:white;color:#0180CF; }
#main{margin:2px auto;padding:30px 1px;width:100%;}
form{margin:24px 0;text-align:left;}
.so_box{margin:10px auto;height:40px;line-height:40px;background-color:white;width:92%;border:1px #CACACA solid;margin-top:12px;position:relative}
.so_bax{margin:10px auto;height:360px;line-height:120%;background-color:white;width:92%;border:1px #CACACA solid;margin-top:12px;position:relative}
.so_box .txts{margin:0px auto;outline: none;line-height:31px;width:88%;padding-left:10px;border:0px;color:#333333;background-color:#FFFFFF;overflow:hidden;}
.so_box .buts{margin:0 auto;height:40px;line-height:40px;width:100%;padding-left:10px;border:0px;color:#333333;background:#0180CF url(line_bg.jpg) repeat-x;border-radius:25px;}
.so_box .more{position:absolute;position:absolute; top:8px; right:10px;}
.so_box .more img{ height:24px;}
textarea{width:100%;min-height:368px;}
@media screen and (max-width: 654px) {
 table{border:0;border-top:0px solid #0180CF;}
 table thead {display:none;}
table tr{margin-bottom:18px;display:block;border-top:2px solid #0180CF;}
table tr{border-bottom:1px solid #0180CF;}
 table td {display:block;text-align:right;font-size:13px;}
 table td {border-left:1px dotted #0180CF;border-bottom: 1px dotted #ccc;}
 table td:last-child {border-bottom:0;}
table td:before {content:attr(data-label);float:left;text-transform:uppercase;}
table td:before {color:blue;}
}
.table{margin:0 auto;font-size:10px;width:92%;height:300px;}
table{border-left:1px solid #a2c6d3;border-top:3px solid #0180CF; margin:0 auto;font-size:12px;width:92%;}
table td{border-right:1px solid #a2c6d3;border-bottom:1px solid #a2c6d3;padding:5px;word-wrap:break-word;word-break:break-all;}
.tt{background:#e5f2fa;line-height:18px;FONT-SIZE:12px;max-width:596px;}
.select select{width:100%;padding:5px;border:1px #CACACA solid;height:40px;-webkit-appearance:none;}
.select option{height:40px;}
.select{margin:0 auto;width:92%;height:40px;overflow:hidden;}
.so_but{margin:15px auto;width:92%;text-align:center;margin-top:12px;border:0px;}
.so_bus{margin:15px auto;width:92%;text-align:left;margin-top:12px;border:0px;}
.so_but .buts{line-height:200%;padding:5px 25px;background:#0180CF url(line_bg.jpg) repeat-x;border-radius:25px;color:white;border:0px;}
#boto{margin:0 auto;width:100%;max-width:1200px;min-width:300px;position:fixed;bottom:0px;display:block;}
.boto{background-color:#ADADAD;color:#000;text-shadow: 0 1px 1px #fff;line-height:180%;}
</style>
<script language="javascript"> 

var $=function(node){
return document.getElementById(node);
}
function $(objId){
return document.getElementById(objId);
}

function inst() {

}

function st(ids,Num){
 if ($(ids).value == ""){
 $(ids).value = '';
 }
}

function sr(ids,Num){
 if ($(ids).value == ""){
 return false;
 }else{
 }
}

function sta(Num) {
if(Num == 2 || Num == 0){
if($("name")!=null){
if ($("name").value==""){
$('t2').style.borderColor='red';
return false;
}else{
$('t2').style.borderColor='green';
}
}
}
if(Num == "0"){
//return false;
}
}
</script> 

</head>
<body>
<div class="html">
<div class="divs" id="divs">
<div id="head" class="head" onclick="location.href='?t=<%=time3%>';">
<%=title%>
<div class="back" id="pageback">
<a href="?t=<%=time2%>" class="d">更多</a>
</div>
</div>
<div class="main" id="main">

<%if len(sfzhs)=0 then%>
<form name="qu" method="post" action="?t=<%=time2%>" onsubmit="return sta(0);">
<div class="so_bax" id="t2">
<textarea name="name" class="txts" id="name" placeholder="复制Excel二维表至此处"  onfocus="st('name',2)" onBlur="sta(2)" >
id	areaid	name	parent	fl
2	340800	安庆	340000	A
3	340300	蚌埠	340000	B
4	341600	亳州	340000	B
5	341700	池州	340000	C
6	341100	滁州	340000	C
7	341400	巢湖	340000	C
8	341200	阜阳	340000	F
9	340400	淮南	340000	H
10	340100	合肥	340000	H
</textarea>
</div>
<div class="so_but">
<input type="submit" name="button" class="buts" id="sub" value="立即转化" />
<input type="button" class="buts" value="刷新本页" name="print" onclick="location.reload();">
</div>
<div class="so_bus" id="tishi">
<!---你的其他说明在这里添加:开始-->

<h3>功能说明:</h3>
<strong>程序员用</strong>二维表转<span>Excel二维表数据转SELECT CASE 工具</span>等。<br>

<h3>操作步骤:</h3>
1. 复制Excel二维结构表到上边文本框。<br>
2. 提交得到:asp php js三种语言的switch case。<br>

<h3>备注说明:</h3>
1. 复制数据:首行列标题,以后一行一条数据。<br>
2. 列标题得是英文,因为程序语言都是英文。<br>

<!--你的其他说明在这里添加:结束-->
</div>
<div id="tishi1" style="display:none;">请输入周岁计算时间</div>
<div id="tishi2" style="display:none;">复制Excel二维表至此处/div>
<div id="timenow" style="display:none;"><%=time2%></div>
</form>


<%else%>
<p align="center"><span> &nbsp; </span></p>
<p align="center"><span color="red">相关说明:</span> 点本页顶部蓝条白字可返回;</p>

<%
 sfzh=split(names,vbcrlf)
 snum=ubound(sfzh)
 line1=sfzh(0)
 titis=split(line1,vbtab)
asptxt = "&lt% "&vbcrlf&" "&titis(0)&" = ""某某值"" "&vbcrlf&" SELECT CASE "&titis(0)&vbcrlf
phptxt="<?php"&vbcrlf&" $"&titis(0)&" =""某某值""; "&vbcrlf&"switch ($"&titis(0)&") {"&vbcrlf
jsstxt = ""&vbcrlf&"var "&titis(0)&"=""某某值"";"&vbcrlf&" switch ("&titis(0)&") {"&vbcrlf

for xf=1 to snum
aaa=sfzh(xf)
if instr(aaa,vbtab)>0 then
bbb=split(aaa,vbtab)(0)
'ccc=split(aaa,vbtab)(1)
ddd=split(aaa,vbtab)
did=ubound(ddd)
  
 asptxt = asptxt & vbcrlf &"CASE """&bbb&""""&vbcrlf
 phptxt = phptxt & vbcrlf &"case """&bbb&""":"&vbcrlf
 jsstxt = jsstxt & vbcrlf &"case '"&bbb&"':"&vbcrlf

txtasp = "Response.Write """" "
txtphp = "echo  """" "
txtjss = "document.getElementById(""demo"").innerHTML= """" "

for i0=1 to did
txtasp = txtasp& " & "&titis(i0)&" "
txtphp = txtphp& " . $"&titis(i0)&" "
txtjss = txtjss& " + "&titis(i0)&" "


 asptxt = asptxt & ""&titis(i0)&" = """&ddd(i0)&""""&vbcrlf
 phptxt = phptxt & "$"&titis(i0)&" = """&ddd(i0)&"""; "&vbcrlf
 jsstxt = jsstxt & ""&titis(i0)&" = """&ddd(i0)&"""; "&vbcrlf
next

if xf=1 then
 myval = bbb
 asptxt = replace(asptxt,"某某值",bbb)
 phptxt = replace(phptxt,"某某值",bbb)
 jsstxt = replace(jsstxt,"某某值",bbb)
end if

 phptxt = phptxt & "break;"&vbcrlf
 jsstxt = jsstxt & "break;"&vbcrlf
end if
next
 asptxt = asptxt &  vbcrlf &"CASE ELSE"&vbcrlf
 asptxt = asptxt &  "Response.Write ""No case :"&bbb&""""&vbcrlf
 asptxt = asptxt &  "END SELECT "&vbcrlf &" "&vbcrlf
 asptxt = asptxt &  txtasp &vbcrlf &" %&gt"&vbcrlf

 phptxt = phptxt &  vbcrlf &"default:"&vbcrlf
 phptxt = phptxt &  "exit(""查无此人"");"&vbcrlf
 phptxt = phptxt &  "}"&vbcrlf &" "&vbcrlf
 phptxt = phptxt &  txtphp&"; ?>"&vbcrlf


 jsstxt = jsstxt &  vbcrlf &"default:"&vbcrlf
 jsstxt = jsstxt &  "alert(""这里改为默认值"");"&vbcrlf
 jsstxt = jsstxt &  "} "&vbcrlf &vbcrlf
 jsstxt = jsstxt &  txtjss&";" &vbcrlf

'Response.Write asptxt &vbcrlf &vbcrlf
'Response.Write phptxt &vbcrlf &vbcrlf

'Response.Write "<script type=""text/javascript"">" &vbcrlf
'Response.Write jsstxt 
'Response.Write "</script>" &vbcrlf

%>

<%
Response.Write "<table cellspacing=""0"">"&vbcrlf
Response.Write "<thead><tr class=""tt""  onclick=""location.href='?t="&time2&"';"">"&vbcrlf
       Response.Write "<td align=""center"" >asp 代码</td>"&vbcrlf
       Response.Write "<td align=""center"">php 代码</td>"&vbcrlf
       Response.Write "<td align=""center"">js 代码</td>"&vbcrlf
Response.Write "</tr></thead><tbody>"&vbcrlf

Response.Write "<tr>"&vbcrlf
 Response.Write "<td data-label=""asp代码""><textarea id=""asp"" class=""txts"">"&vbcrlf
 Response.Write asptxt &vbcrlf &vbcrlf
       Response.Write "</textarea></td>"&vbcrlf

Response.Write "<td data-label=""php代码""><textarea id=""php"" class=""txts"">"&vbcrlf
Response.Write phptxt &vbcrlf &vbcrlf
Response.Write "</textarea></td>"&vbcrlf

Response.Write "<td data-label=""js代码""><textarea id=""js"" class=""txts"">"&vbcrlf
Response.Write "<div id=""demo""></div>" &vbcrlf
Response.Write "<script type=""text/javascript"">" &vbcrlf
Response.Write jsstxt 
Response.Write "</script>" &vbcrlf
Response.Write "</textarea></td>"&vbcrlf

Response.Write "</tr>"&vbcrlf
Response.Write "</tbody></table>"&vbcrlf

%>
<p align="center"><a href="?t=<%=time2%>" id="sube" title="返回">返 回</a></p>
<%end if%>
</div>
<div class="boto" id="boto">
&copy;2018&nbsp; <a href="http://add.yichaxin.com/?<%=time2%>" target="_blank">就来试试吧(sfz.96448.cn)</a>
</div>
</div>
</div>
</body>
</html>

 

相关标签: 程序员