|
5精币
写入URL.txt后没有换行符,要分割吗,不会写,求具体代码,感谢。
.版本 2
.支持库 internet
.子程序 取当前时间段名称
.局部变量 sj, 日期时间型
.局部变量 时, 整数型
sj = 取现行时间 ()
时 = 到整数 (文本_取出中间文本 (到文本 (sj), “日”, “时”))
.判断开始 (时 = 1)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/1.txt”))
.判断 (时 = 2)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/2.txt”))
.判断 (时 = 3)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/3.txt”))
.判断 (时 = 4)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/4.txt”))
.判断 (时 = 5)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/5.txt”))
.判断 (时 = 6)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/6.txt”))
.判断 (时 = 7)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/7.txt”))
.判断 (时 = 8)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/8.txt”))
.判断 (时 = 9)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/9.txt”))
.判断 (时 = 10)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/10.txt”))
.判断 (时 = 11)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/11.txt”))
.判断 (时 = 12)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/12.txt”))
.判断 (时 = 13)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/13.txt”))
.判断 (时 = 14)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/14.txt”))
.判断 (时 = 15)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/15.txt”))
.判断 (时 = 16)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/16.txt”))
.判断 (时 = 17)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/17.txt”))
.判断 (时 = 18)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/18.txt”))
.判断 (时 = 19)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/19.txt”))
.判断 (时 = 20)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/20.txt”))
.判断 (时 = 21)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/21.txt”))
.判断 (时 = 22)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/22.txt”))
.判断 (时 = 23)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/23.txt”))
.判断 (时 = 24)
写到文件 (取运行目录 () + “/URL.txt”, HTTP读文件 (“http://123.com/URL/24.txt”))
.默认
|
|