[{"data":1,"prerenderedAt":-1},["ShallowReactive",2],{"content-ascii-table-and-text-format":3,"$f342ahupafuqct":22},{"id":4,"type":5,"slug":6,"title":7,"date":8,"category":9,"tags":10,"body_markdown":15,"permalink":16,"excerpt_src":16,"media_type":16,"media_title":16,"media_author":16,"media_url":16,"rating":16,"layout":16,"pv":17,"admin_only":17,"created_at":18,"updated_at":18,"deleted_at":16,"status":19,"html":20,"cover":21},149,"article","ascii-table-and-text-format","ASCII码表代码＋文本格式化处理代码","2008-01-07 14:38","web",[11,12,13,14],"vbscript","ASCII","文本","格式化","\n真的发现网页可以做很多事情，我现在已经用网页写了4个程序出来了。\n先贴两个今天写完的。\n\nASCII码表：\n\n```html\n\u003Chtml>\n\u003Chead>\u003Ctitle>ASCII码表\u003C\u002Ftitle>\u003C\u002Fhead>\n\u003Cbody onload=\"asciitable()\">\n\u003Cscript language=\"vbscript\">\nfunction asciitable()\n    document.write \"\u003Ctable align='center' border='0'>\"&chr(13)\n    document.write \"\u003Ctr>\u003Ctd colspan='20' align='center'>ASCII码表(VBScript自动生成)\u003C\u002Ftd>\u003C\u002Ftr>\"&chr(13)\n    j=0\n    for i=1 to 127\n        if j=0 then document.write \"\u003Ctr>\"\n        document.write \"\u003Ctd>\"&i&\"\u003C\u002Ftd>\u003Ctd>\"&chr(i)&\"\u003C\u002Ftd>\"\n        j=j+1\n        if j=10 then\n            document.write \"\u003C\u002Ftr>\"&chr(13)\n        j=0\n        end if\n    next\n    document.write \"\u003C\u002Ftable>\"\nend function\n\u003C\u002Fscript>\n\u003C\u002Fbody>\n\u003C\u002Fhtml>\n```\n\n文本格式化处理：\n\n```html\n\u003C!DOCTYPE html PUBLIC \"-\u002F\u002FW3C\u002F\u002FDTD XHTML 1.0 Transitional\u002F\u002FEN\" \"http:\u002F\u002Fwww.w3.org\u002FTR\u002Fxhtml1\u002FDTD\u002Fxhtml1-transitional.dtd\">\n\u003Chtml xmlns=\"http:\u002F\u002Fwww.w3.org\u002F1999\u002Fxhtml\">\n\u003Chead>\u003Ctitle>文本格式化处理－抒寒开发\u003C\u002Ftitle>\u003C\u002Fhead>\n\u003Cbody>\n\u003Cscript language=\"vbscript\">\nfunction trans()\n    text=text1.value\n    text=\"    \"&text\n    text=replace(text,\"`\",\"'\")\n    text=replace(text,\",\",\"，\")\n    text=replace(text,\".\",\"。\")\n    text=replace(text,\"．\",\"。\")\n    text=replace(text,\"?\",\"？\")\n    text=replace(text,\"!\",\"！\")\n    text=replace(text,\":\",\"：\")\n    text=replace(text,\"(\",\"（\")\n    text=replace(text,\")\",\"）\")\n    text=replace(text,\"\u003C\u003C\",\"《\")\n    text=replace(text,\">>\",\"》\")\n    text=replace(text,\"。。。\",\"…\")\n    text=replace(text,\"…。\",\"…\")\n    text=replace(text,\"…。\",\"…\")\n    text=replace(text,\"：\"&chr(13),\"：　　\")\n    text=replace(text,\"。\"&chr(13),\"。　　\")\n    text=replace(text,\"？\"&chr(13),\"？　　\")\n    text=replace(text,\"！\"&chr(13),\"！　　\")\n    text=replace(text,\"…\"&chr(13),\"…　　\")\n    text=replace(text,chr(13),\"\")\n    text=replace(text,chr(10),\"\")\n    text=replace(text,\"  \",\"　\")\n    text=replace(text,\"　 \",\"　　\")\n    text=replace(text,\"　　　　\",\"　　\")\n    text=replace(text,\"　　　\",\"　　\")\n    text=replace(text,\"　　　\",\"　　\")\n    text=replace(text,\"　　\",chr(13)&\"　　\")\n    text=right(text,len(text)-1)\n    text2.value=text\nend function\n\u003C\u002Fscript>\n\u003Cscript language=\"javascript\">\nfunction copytext(obj,formname) {\n    ie = (document.all)? true:false\n    if (ie){\n        var rng = document.body.createTextRange();\n        rng.moveToElementText(obj);\n        rng.scrollIntoView();\n        rng.select();\n        rng.execCommand(\"Copy\");\n        rng.collapse(false);\n        alert(\"文本复制成功！\")\n    }\n}\n\u003C\u002Fscript>\n\u003Cdiv align=\"center\" style=\"margin:auto;padding:2px;width:760px;border:1px dotted;font-size:12px;color:#5d78bf;\">\n    \u003Cdiv align=\"left\" style=\"padding:8px; height:20px;background:#e4f1ff;\">\n        \u003Cdiv style=\"width:400px;float:left;font-size:16px;\">文本格式化处理程序V1.0\u003C\u002Fdiv>\n        \u003Cdiv style=\"width:50px;float:right\">\u003Ca href=\"javascript:window.close()\">关闭窗口\u003C\u002Fa>\u003C\u002Fdiv>\n    \u003C\u002Fdiv>\n    \u003Cdiv align=\"left\" style=\"padding:10px 20px;\">请粘贴待处理文本并按“处理”：\u003Cinput type=\"button\" value=\"处理\" onclick=\"trans()\" \u002F>\u003C\u002Fdiv>\n    \u003Ctextarea rows=\"10\" cols=\"100\" name=\"text1\" id=\"text1\">\u003C\u002Ftextarea>\n    \u003Cdiv align=\"left\" style=\"padding:10px 20px;\">处理后的文本，可点击按钮复制：\u003Cinput type=\"button\" value=\"复制\" onclick=\"copytext(text2)\" \u002F>\u003C\u002Fdiv>\n    \u003Ctextarea rows=\"10\" cols=\"100\" name=\"text2\" id=\"text2\">\u003C\u002Ftextarea>\n    \u003Cdiv align=\"left\" style=\"padding:20px;\">\n        说明：\u003Cbr \u002F>\n        1、本程序仅适合处理中文文章，英文文章、源代码等请勿用本程序处理。\u003Cbr \u002F>\n        2、本程序处理内容：英文标点换中文标点，段首空格、换行符、标点符号等标准化。\u003Cbr \u002F>\n        3、本程序尚处于测试阶段，可能存在功能不稳定的情况，处理前请务必备份好原文件。\u003Cbr \u002F>\n    \u003C\u002Fdiv>\n\u003C\u002Fdiv>\n\u003C\u002Fbody>\n\u003C\u002Fhtml>\n```\n",null,0,"2026-08-28 04:37:17","published","\u003Cp>真的发现网页可以做很多事情，我现在已经用网页写了4个程序出来了。\n先贴两个今天写完的。\u003C\u002Fp>\n\u003Cp>ASCII码表：\u003C\u002Fp>\n\u003Cpre>\u003Ccode><html>\n<head><title>ASCII码表<\u002Ftitle><\u002Fhead>\n<body onload="asciitable()">\n<script language="vbscript">\nfunction asciitable()\n    document.write "<table align='center' border='0'>"&chr(13)\n    document.write "<tr><td colspan='20' align='center'>ASCII码表(VBScript自动生成)<\u002Ftd><\u002Ftr>"&chr(13)\n    j=0\n    for i=1 to 127\n        if j=0 then document.write "<tr>"\n        document.write "<td>"&i&"<\u002Ftd><td>"&chr(i)&"<\u002Ftd>"\n        j=j+1\n        if j=10 then\n            document.write "<\u002Ftr>"&chr(13)\n        j=0\n        end if\n    next\n    document.write "<\u002Ftable>"\nend function\n<\u002Fscript>\n<\u002Fbody>\n<\u002Fhtml>\n\u003C\u002Fcode>\u003C\u002Fpre>\n\u003Cp>文本格式化处理：\u003C\u002Fp>\n\u003Cpre>\u003Ccode><!DOCTYPE html PUBLIC "-\u002F\u002FW3C\u002F\u002FDTD XHTML 1.0 Transitional\u002F\u002FEN" "http:\u002F\u002Fwww.w3.org\u002FTR\u002Fxhtml1\u002FDTD\u002Fxhtml1-transitional.dtd">\n<html xmlns="http:\u002F\u002Fwww.w3.org\u002F1999\u002Fxhtml">\n<head><title>文本格式化处理－抒寒开发<\u002Ftitle><\u002Fhead>\n<body>\n<script language="vbscript">\nfunction trans()\n    text=text1.value\n    text="    "&text\n    text=replace(text,"`","'")\n    text=replace(text,",","，")\n    text=replace(text,".","。")\n    text=replace(text,"．","。")\n    text=replace(text,"?","？")\n    text=replace(text,"!","！")\n    text=replace(text,":","：")\n    text=replace(text,"(","（")\n    text=replace(text,")","）")\n    text=replace(text,"<<","《")\n    text=replace(text,">>","》")\n    text=replace(text,"。。。","…")\n    text=replace(text,"…。","…")\n    text=replace(text,"…。","…")\n    text=replace(text,"："&chr(13),"：　　")\n    text=replace(text,"。"&chr(13),"。　　")\n    text=replace(text,"？"&chr(13),"？　　")\n    text=replace(text,"！"&chr(13),"！　　")\n    text=replace(text,"…"&chr(13),"…　　")\n    text=replace(text,chr(13),"")\n    text=replace(text,chr(10),"")\n    text=replace(text,"  ","　")\n    text=replace(text,"　 ","　　")\n    text=replace(text,"　　　　","　　")\n    text=replace(text,"　　　","　　")\n    text=replace(text,"　　　","　　")\n    text=replace(text,"　　",chr(13)&"　　")\n    text=right(text,len(text)-1)\n    text2.value=text\nend function\n<\u002Fscript>\n<script language="javascript">\nfunction copytext(obj,formname) {\n    ie = (document.all)? true:false\n    if (ie){\n        var rng = document.body.createTextRange();\n        rng.moveToElementText(obj);\n        rng.scrollIntoView();\n        rng.select();\n        rng.execCommand("Copy");\n        rng.collapse(false);\n        alert("文本复制成功！")\n    }\n}\n<\u002Fscript>\n<div align="center" style="margin:auto;padding:2px;width:760px;border:1px dotted;font-size:12px;color:#5d78bf;">\n    <div align="left" style="padding:8px; height:20px;background:#e4f1ff;">\n        <div style="width:400px;float:left;font-size:16px;">文本格式化处理程序V1.0<\u002Fdiv>\n        <div style="width:50px;float:right"><a href="javascript:window.close()">关闭窗口<\u002Fa><\u002Fdiv>\n    <\u002Fdiv>\n    <div align="left" style="padding:10px 20px;">请粘贴待处理文本并按“处理”：<input type="button" value="处理" onclick="trans()" \u002F><\u002Fdiv>\n    <textarea rows="10" cols="100" name="text1" id="text1"><\u002Ftextarea>\n    <div align="left" style="padding:10px 20px;">处理后的文本，可点击按钮复制：<input type="button" value="复制" onclick="copytext(text2)" \u002F><\u002Fdiv>\n    <textarea rows="10" cols="100" name="text2" id="text2"><\u002Ftextarea>\n    <div align="left" style="padding:20px;">\n        说明：<br \u002F>\n        1、本程序仅适合处理中文文章，英文文章、源代码等请勿用本程序处理。<br \u002F>\n        2、本程序处理内容：英文标点换中文标点，段首空格、换行符、标点符号等标准化。<br \u002F>\n        3、本程序尚处于测试阶段，可能存在功能不稳定的情况，处理前请务必备份好原文件。<br \u002F>\n    <\u002Fdiv>\n<\u002Fdiv>\n<\u002Fbody>\n<\u002Fhtml>\n\u003C\u002Fcode>\u003C\u002Fpre>\n","",{"total":17,"totalRoots":17,"comments":23,"pv":17},[]]