該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

新的名字

生活助手

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格式（可以替换或更换某文本）新手...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。