如何制作一个文本文件编辑器？

2024-09-27 12:26:38

newdoc.asp
<%@ Language=VBScript %>
<script id=DebugDirectives runat=server language=&#106avascript>
//Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</script>
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

Sub button2_&#111nclick
fo1.TEXTAREA1.style.fontFamily=select1.value
End Sub

Sub button3_&#111nclick
fo1.TEXTAREA1.style.fontSize=select2.value
End Sub

Sub button4_&#111nclick
if button4.value="Bold" then
button4.value="Un Bold"
fo1.TEXTAREA1.style.fontWeight="Bold"
else
button4.value="Bold"
fo1.TEXTAREA1.style.fontWeight="normal"
end if
End Sub

Sub button5_&#111nclick
if button5.value="Italics" then
button5.value="Un Italics"
fo1.TEXTAREA1.style.fontstyle="italic"
else
button5.value="Italics"
fo1.TEXTAREA1.style.fontstyle="normal"
end if
End Sub
Sub button6_&#111nclick
window.close
End Sub

-->
</script>
</head>
<body>
<FONT face=arial size=3 color=royalblue><B>撼雪喷云之文本文件编辑器</b></font>
<%dim x
if Request("type")="save" then
x = 1
end if
%>
<OBJECT id=OBJECT1 PROGID="Scripting.FileSystemObject" RUNAT="server"> </OBJECT>
<TABLE bgColor=blanchedalmond border=0 cellPadding=1 cellSpacing=1 width="100%">
<tr>
<td>
<% if not len(request("doc"))=0 then%>
<Font face=arial size=2>文档:<B> <%=Request.querystring("doc")%></B></font>
<%else%>
<Font face=arial size=2>文档:<B>未命名</B></font>
<%
end if%>
</td>
</tr>
</TABLE>
<P><select id=select1 name=select1 style="HEIGHT: 22px; WIDTH: 25%">
<OPTION value='Simsun'>宋体</option>
<OPTION value='Simhei'>黑体</option>
<OPTION value='Simli'>隶书</option>
<OPTION value='Stxinwei'>华文新魏</option>
<OPTION value='Gpopo3e'>文鼎中特广告体</option>
<OPTION value='Times New Roman'>Times New Roman</option>
<OPTION value='System'>System</option>
</select>
<INPUT id=button2 name=button2 type=button value=字体>
<select id=select2 name=select2 style="HEIGHT: 22px; WIDTH: 60px">
<option value=8pt>8pt</option>
<option value=9pt>9pt</option>
<option value=10pt selected>10pt</option>
<%for a=11 to 100%>
<option value='<%=a%>pt'><%=a%>pt</option>
<%next
%>
</select>
<INPUT id=button3 name=button3 type=button value=字号>
<INPUT id=button4 name=button4 type=button value=粗体>
<INPUT id=button5 name=button5 type=button value=斜体>
<INPUT id=button6 name=button6 type=button value='关闭窗口'><BR><BR>
<form id=fo1 name=fo1 method=post action=newdoc.asp?type=save&ch=1&doc=<%=Request.QueryString("doc")%>>
<INPUT id=text1 name=text1 style="HEIGHT: 24px; WIDTH: 80%" value=<%=Request.querystring("doc")%>>
<INPUT id=button1 name=button1 style="HEIGHT: 24px; WIDTH: 15%" type=submit value="保存文件" >
<hr width="100%">
<BR>
<TEXTAREA id=TEXTAREA1 name=TEXTAREA1 style="FONT-family: arial; FONT-SIZE: 10pt; HEIGHT: 50%; WIDTH:
100%"><%if request("ch")=1 then
Response.Write request("textarea1")
end if
if len(request("text1"))>0 then
if OBJECT1.FileExists(Request("text")) then
OBJECT1.OpenTextFile(request("doc")).Write request("textarea1")
else
OBJECT1.CreateTextFile (request("text1"),true).Write Request("textarea1")
end if
end if
if not Request.QueryString("doc")="" and not Request("ch")=1 then
if OBJECT1.FileExists(Request.QueryString("doc")) then
Response.Write OBJECT1.OpenTextFile(Request.QueryString("doc")).ReadAll
else
Response.Write "噢,没有文件存在!"
end if
end if
%>
</TEXTAREA>
</form>
<HR width="100%">
</body></html>

aspnp.asp
<%@ Language=VBScript %>
<html>
<head>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script ID=clientEventHandlersJS LANGUAGE=&#106avascript>
<!--

function submit1_&#111nclick() {
if(frm1.file1.value==null)
window.open("newdoc.asp?doc=" + document.frm1.file1.value);
}

function button2_&#111nclick() {
window.close()
}

function new_&#111nclick() {
window.open("newdoc.asp?doc=");
}

//-->
</script>
</head>
<body>
<form name=frm1>
<P align=left><FONT color=royalblue face=Arial>撼雪喷云之文本文件编辑器</FONT></P>
<P align=center>

</form>
</body></html>

[1]

如何制作一个文本文件编辑器？

newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=j WIDTH: 25%"> <OPTION value='Simsun'>宋体</option><OPTION value='Simhei'>黑体</option><OPTION value='Simli'>隶书</option><
python 制作一个gui界面的翻译工具

一．准备工作除了Tkinter,还需要google_trans_new,没有安装这个库的朋友,可以使用 pip install google_trans_new 安装一下. 二．预览 1.主界面 2.翻译 3.支持多种语言哦三．源代码设计流程很简单,这里就直接贴代码了 3.1 My_Translator-v2.0.py from tkinter import * from tkinter import messagebox from tkinter import ttk import py
js制作xml在线编辑器实例

目录前言在线XML编辑器的需求技术预研可视化编程 VSCODE插件在线编辑器最初形态:简单的在线XML编辑器用CodeMirror做编辑器学习XML,并提取出tags规则进化形态:加载树形文件结构和全文件校验功能的在线XML编辑器左侧文件树全文件校验功能非递归遍历树 IndexDB保存文件内容究极进化形态:突破浏览器沙盒限制,实现对电脑本地文件的增删改更多的功能与细节不足与总结前言一年多没更新博客了,原因是疫情期间<骑马与砍杀2>发售,然后去写游戏MOD去了.
基于Python制作一个文本翻译器

translate非标准库是python中可以实现对多种语言进行互相翻译的库,使用时只需要设置目标语言(比如:中文.英文)后,会自动将原始文本翻译成我们需要的目标语言. 使用pip的方式安装translate非标准库. pip install translate 准备好之后进行代码编写过程,实现的方式也比较常规. 输入需要翻译的文本文件路径. path = input('请输入需要翻译的文件路径(.txt):\n') 编写文本文件读取函数,读取文本文件后返回字符串. def read_text(
利用Python+Excel制作一个视频下载器

说起Excel,那绝对是数据处理领域王者般的存在. 而作为网红语言Python,在数据领域也是被广泛使用. 其中Python的第三方库-xlwings,一个Python和Excel的交互工具,可以轻松地通过VBA来调用Python脚本,实现复杂的数据分析. 今天,小F就给大家介绍一个Python+Excel的项目[视频下载器]. 主要使用到下面这些Python库. import os import sys import ssl import ffmpeg import xlwings as xw
AngualrJS中的Directive制作一个菜单

说下我经常写菜单的方式: <ul> <li data-ng-class="{'active': highlight('/orders')}"> <a href="#/orders">Orders</a> </li> </ul> 菜单项是否高亮显示取决于controller中的highlight方法. vm.highlight = funciton(path){ return $locaiton.
利用java制作一个小的目录查询器的方法

实例如下: import java.util.*; import javax.swing.*; import java.awt.*; import java.io.*; import java.awt.event.*; class MyWindow{ private Frame f1; private Button bt1; private TextField tx1; private TextArea tx2; MyWindow(){ init(); } public void init(){
python3使用pyqt5制作一个超简单浏览器的实例

我们使用的是QWebview模块,这里也主要是展示下QWebview的用法. 之前在网上找了半天的解析网页的内容,都不是很清楚. 这是核心代码: webview = Qwebview() webview.load(Qurl('http://www.cnblogs.com/Blaxon/')) webview.show() 完整代码(代码是拿的别的代码改得): from PyQt5.QtCore import * from PyQt5.QtWidgets import * from PyQt5.Q
探索Emberjs制作一个简单的Todo应用

目标使用Emberjs制作一个简单的Todo应用,实现这样一个效果:通过在文本框输入文本,创建一条代办事项,代办事项可以选择优先级,完成的事项可以删除. 准备完成这个应用,需要做点准备: 1.创建一个html页面,暂时不管样式: 2.脚本:emberjs,handlebars.jQuery.这三个脚本可以从网上获得,我们将把他们加入到head标签里去. 制作创建页面,加入脚本,就可以开始制作应用.html代码如下: 复制代码代码如下: <!doctype html> <html&
Java中Socket下载一个文本文件

废话不多说了,直接给大家贴代码了,具体代码如下所示: package com.lanqiao.demo2; import java.io.BufferedInputStream; import java.io.FileInputStream; import java.io.IOException; import java.io.OutputStream; import java.net.ServerSocket; import java.net.Socket; /** * @author * @

如何制作一个文本文件编辑器？

相关推荐

随机推荐