猫头鹰111

导航

02 2019 档案

VB批量替换文本字符
摘要：Private Sub Command1_Click()Open App.Path & "\abc.txt" For Binary As #1a = Input(LOF(1), 1)Close #1a = Replace(a, "标记一", Text1.Text)a = Replace(a, "标记 阅读全文

posted @ 2019-02-20 13:17 猫头鹰111 阅读(1571) 评论(0) 推荐(0)

返回上一页 html A标记代码
摘要：<a class="sjad" href="#" onClick="javascript:history.back(-1);">返回上一页</a> <a class="sjad" href="#" onClick="javascript:history.go(-1);">返回上一页</a> 阅读全文

posted @ 2019-02-20 13:15 猫头鹰111 阅读(517) 评论(0) 推荐(0)

html 页面 判断第一个反应的网站并进行跳转 模仿CDN
摘要：<!DOCTYPE html><html><head><meta charset="gb2312"><meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"><title>正在进入</title><meta name="descrip 阅读全文

posted @ 2019-02-18 21:12 猫头鹰111 阅读(527) 评论(0) 推荐(0)

VB 读取列表文件名
摘要：Private Sub Command1_Click()Dim d As String, s As String If Dir(App.Path & "\down", vbDirectory) = "" ThenLabel1.Caption = "img目录不存在无法执行下一步"Elsed = Di 阅读全文

posted @ 2019-02-16 15:38 猫头鹰111 阅读(462) 评论(0) 推荐(0)