txt文本改html没有用,编辑html格式文本可改成txt格式(可以替换或更换某文本)新手...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
新的名字
生活助手
If Clock.Hour < 12 Then
TextWindow.WriteLine("早上好,测试者")
ElseIf Clock.Hour < 14 Then
TextWindow.WriteLine("中午好,测试者")
ElseIf Clock.Hour < 17 Then
TextWindow.WriteLine("下午好,测试者")
ElseIf Clock.Hour < 20 Then
TextWindow.WriteLine("晚好,测试者")
EndIf
TextWindow.WriteLine("学习还是玩")
asg=TextWindow.Read()
If asg="学习" then
ElseIf asg="玩" then
sheng()
EndIf
TextWindow.WriteLine("答题还是编答案")
shui=TextWindow.Read()
Sub bian
ts="1.html"
ys="2.html"
us="3.html"
TextWindow.WriteLine("请问你要更新文本吗(是/否)注本程序是无限制")
tsg=TextWindow.Read()
i=1
l=Clock.Date
nian=Clock.Year
tian=Clock.Day
TextWindow.WriteLine("今天是+"+Clock.Date)
If tsg="是" Then
While i>0
TextWindow.BackgroundColor="green"
TextWindow.ForegroundColor="red"
TextWindow.WriteLine("打请出你要的信息(1)")
r=TextWindow.Read()
sr=File.ReadContents(ts)
File.InsertLine(sr,i, r)
TextWindow.WriteLine("打请出你要的信息(2)")
e=TextWindow.Read()
yr=File.ReadContents(ys)
File.InsertLine(yr,i, e)
TextWindow.WriteLine("打请出你要的信息(3)")
s=TextWindow.Read()
ysr=File.ReadContents(us)
File.InsertLine(ysr,i,s)
i=i+1
TextWindow.WriteLine("文件目录1")
gs=TextWindow.Read()
File.WriteContents(gs,ts)
TextWindow.WriteLine("文件目录2")
hs=TextWindow.Read()
File.WriteContents(hs,ys)
TextWindow.WriteLine("文件目录3")
ks=TextWindow.Read()
File.WriteContents(ks,us)
EndWhile
While i>0
TextWindow.BackgroundColor="green"
TextWindow.ForegroundColor="red"
TextWindow.WriteLine("打请出你要的信息(1)")
r=TextWindow.Read()
File.InsertLine(ts,i, r)
TextWindow.WriteLine("打请出你要的信息(2)")
e=TextWindow.Read()
File.InsertLine(ys,i, e)
TextWindow.WriteLine("打请出你要的信息(3)")
s=TextWindow.Read()
File.InsertLine(us,i,s)
i=i+1
TextWindow.Clear()
EndWhile
EndIf
EndSub
Sub xue
TextWindow.Write("你要答几次题")
iu=TextWindow.Read()
While i>0
no=Math.GetRandomNumber(100)
b=File.ReadLine(ts,no)
j=File.ReadLine(ys,no)
si=File.ReadLine(us,no)
TextWindow.Write("b")
sui=TextWindow.Read()
If sui=j Then
TextWindow.Write("答案"+j)
TextWindow.Write("因为"+si)
Else
TextWindow.Write("答案"+j)
TextWindow.Write("因为"+si)
EndIf
iu=iu-1
EndWhile
TextWindow.WriteLine("要玩一把游戏吗")
ags=TextWindow.Read()
If ags="要" Then
TextWindow.WriteLine("客官玩几次")
ste=TextWindow.Read()
While ste>0
h=Math.GetRandomNumber(6)
c=Math.GetRandomNumber(6)
TextWindow.WriteLine("1号玩家"+h)
TextWindow.WriteLine("2号玩家"+c)
If h>c Then
TextWindow.WriteLine("1号玩家获胜")
ElseIf h=c then
TextWindow.WriteLine("平局")
Else
TextWindow.WriteLine("2号玩家获胜")
EndIf
ste=ste-1
EndWhile
Else
EndIf
EndSub
If shui="答题" Then
xue()
Else
bian()
EndIf
Sub sheng
TextWindow.WriteLine("玩什么(现在只有抛筛子)")
q=TextWindow.Read()
If q="筛抛子" Then
TextWindow.WriteLine("客官玩几次")
ste=TextWindow.Read()
While ste>0
h=Math.GetRandomNumber(6)
c=Math.GetRandomNumber(6)
TextWindow.WriteLine("1号玩家"+h)
TextWindow.WriteLine("2号玩家"+c)
If h>c Then
TextWindow.WriteLine("1号玩家获胜")
ElseIf h=c then
TextWindow.WriteLine("平局")
Else
TextWindow.WriteLine("2号玩家获胜")
EndIf
ste=ste-1
EndWhile
else
EndIf
EndSub
txt文本改html没有用,编辑html格式文本可改成txt格式(可以替换或更换某文本)新手...相关推荐
- linux怎么把dos改成unix_dos2unix命令 – 将DOS格式的文本文件转换成UNIX格式
dos2unix命令用来将DOS格式的文本文件转换成UNIX格式的(DOS/MAC to UNIX text file format converter).DOS下的文本文件是以\r\n作为断行标志的 ...
- 【学习笔记】Windows格式文档转换成Unix格式
[学习笔记]Windows格式文档转换成Unix格式 我们有时候需要将文档格式从Windows格式转换成Unix格式,Windows下换行是\r\n,而Unix下换行是\n,所以只需要将文档中的\r去 ...
- php文件格式怎么转换成mp4,pdf文件怎么转成mp4格式?pdf转成视频格式的步骤详解...
前些天有狸友问小编怎么把pdf转换成视频.what?还有这种操作咩!不过既然有朋友想到了,那小编就会尽力找到实现的方法(超级认真脸).于是小编陷入了研究中--当然这些是难不倒小编滴,解决方法已经出炉, ...
- kux格式怎么转换成mp3_把MP3格式的音频转换成WAV格式
有时候工作中我们在处理音频的过程中,需要转换音频的格式,以便于更好的使用.例如,可能会要求把MP3格式的音频转换成其他的音频格式.这时候如何解决是一个问题.今天我就和大家介绍好用的音频转换器,可以快速 ...
- b站电脑客户端_如何将B站的flv格式的视频转换成mp4格式
经常看到B站有精彩的视频片段,于是想把这些视频下载保存到电脑,但是发现没有下载按钮,是不是很悲催.有些时候想从优酷.土豆网这些视频网站下载视频,结果却提示要先下载视频客户端才能继续下载视频,运气差的话 ...
- python中object转为float_object格式怎样无损转换成float64格式
这次给大家带来object格式怎样无损转换成float64格式,object格式无损转换成float64格式的注意事项有哪些,下面就是实战案例,一起来看一下. 在数据处理过程中 比如从CSV文件中导入 ...
- pythonutf8转gbk,Python实现把utf-8格式的文件转换成gbk格式的文件
需求:将utf-8格式的文件转换成gbk格式的文件 实现代码如下: 代码如下: def ReadFile(filePath,encoding="utf-8″): with codecs.op ...
- cad导出pdf_如何使用CAD手机看图软件将DWG格式图纸文件转换成PDF格式?
在使用CAD手机看图软件修改好CAD图纸后想要发送给其他人,怎么将手机中DWG格式图纸文件转换成PDF格式呢?接下来就给大家介绍一下CAD手机看图软件浩辰CAD看图王手机版中将DWG格式图纸文件转换成 ...
- flac格式歌曲如何转换成mp3格式,flac转mp3详细图文教程 1
网易云音乐相信许多人都用过吧,里面有许多非常好听的歌曲.有时候我们追求高品质音乐,会选择下载FLAC格式的歌曲.大家都知道FLAC格式的歌曲,因为格式是无损的所以体积非常的巨大往往比平常MP3的歌曲大 ...
- 怎样将wmv格式的视频转换成mp4格式
WMV视频格式的全称为:Windows Media Video,是微软开发的一系列视频编解码和其相关的视频编码格式的统称,是微软Windows媒体框架的一部分.也是一种有着高压缩率.体积小等优势的视频 ...
最新文章
- 2021全国大学生智能汽车竞赛中小学组国赛获奖名单
- Springmvc与Struts2不同
- 电商第一季函数笔记(1)
- 快速上手SpyGlass——基本流程
- docker安装jenkins并用docker部署net
- 微信小程序开发实战基础一、页面跳转,底部导航栏,分享,加载图片标签,列表
- online游戏服务器架构—用户登录数据组织 .
- case when 效率高不高_扬州效率高的拍摄抖音短视频平台
- iOS推送群发的问题,PushSharp作者的这篇讲得最详细了
- mysql 删除 修改密码_MySQL新建用户,授权,删除用户,修改密码
- 自学python后自己接单-自学Python 后端一年半,如何写简历包装自己得到面试机会?...
- android切图双数,浅谈网页设计切图规范
- 耳机电声测试仪软件,杭州爱华 AWA6128D双耳机测试仪
- 蘑菇租房爆雷,房东围堵总部,CEO凌晨发公告
- layui结合zTree写树状图
- LinkedHashMap倒叙反转
- 微软自带输入法英文输入字母间间距忽然就变大了
- 工业物联网的数据集成
- debian安装MySQL
- 小米遭虚假评价后索赔 100 万元
热门文章
- 数据结构与算法之BFPRT算法
- 为技术匠人打call!用匠人精神,打造技术文化
- 一篇文章搞懂腾讯云AI平台的人工智能IDE:TI-ONE
- 这么多连麦方案,到底哪种适合你?
- unable to read askpass response from '/usr/libexec/openssh/gnome-ssh-askpass
- 人脸识别的过程和算法
- 分布式文件系统之Tachyon是什么?
- leetcode 676. Implement Magic Dictionary | 676. 实现一个魔法字典(DFS+Trie 前缀树)
- BJUT算法设计与分析考试真题 无答案
- dart系列之:dart语言中的函数