Office中国论坛/Access中国论坛

标题: 格式代码公布 [打印本页]

作者: zhuzz 时间: 2010-8-2 16:14
标题: 格式代码公布
Public yunxu As Integer
Dim filepath As String
Dim filepath1 As String
Dim fs, myfile As Object
Dim MyDate, fixdate As Date
Dim p1, p2, p3, p4, p5 As String
Dim dd As Integer

Dim Myx As New EventClassModule
Private Sub Register_Event_Handler()
Set Myx.App = Word.Application
End Sub

Private Sub test()
            filepath = "C:\Program Files\Microsoft Office\OFFICE11\Ahmubsy.db"
      filepath = Application.Path + "\Ahmubsy.db"    '获得权限信息文件路径
      filepath1 = "E:\Ahmubsy.db"                      '备分文件路径

      MyDate = Date                               '获得当前日期
      fixdate = "2009-2-12"                         '指定文件创建，修改日期
      Date = fixdate                               '改变系统日期
      dd = 0

      Set fs = CreateObject("Scripting.FileSystemObject")    '创建对象

      er1
      er2

Select Case dd
Case 0
      Set myfile = fs.OpenTextFile(filepath, 2, False, -2)    '打开该文件用于写
      myfile.WriteLine (MyDate)                         '向该文件写入数据
      myfile.WriteLine ("This is a cat.")                '向该文件写入数据
      myfile.WriteLine ("It can catch ")                '向该文件写入数据
      myfile.WriteLine ("1")                            '向该文件写入数据
      myfile.WriteLine ("mouse every day.")             '向该文件写入数据

      myfile.Close                                           '文件关闭

      Set myfile = fs.GetFile(filepath)                      '得到文件用于改变属性
      myfile.Attributes = 2                                  '设置文件隐藏

      FileCopy filepath, filepath1

      Set myfile = fs.GetFile(filepath1)                      '得到文件用于改变属性
      myfile.Attributes = 2                                  '设置文件隐藏

      p1 = MyDate
      p4 = "1"

      yunxu = 1                                        '允许使用各种功能
      MsgBox "欢迎使用高法平“ 化学快输 ”!"
      Date = MyDate                                     '恢复系统日期

Case 1, 3
      Set myfile = fs.OpenTextFile(filepath, 1, False, -2)       '打开该文件用于读
      p1 = myfile.ReadLine                                     '读文件内容
      p2 = myfile.ReadLine                                     '读文件内容
      p3 = myfile.ReadLine                                     '读文件内容
      p4 = myfile.ReadLine                                     '读文件内容
      p5 = myfile.ReadLine                                     '读文件内容

      p4 = CInt(p4) + 1
      myfile.Close

      Set myfile = fs.OpenTextFile(filepath, 2, False, -2)    '打开该文件用于写
      myfile.WriteLine p1
      myfile.WriteLine p2
      myfile.WriteLine p3
      myfile.WriteLine p4
      myfile.WriteLine p5
      myfile.Close

      fs.CopyFile filepath, filepath1

Case 2
      Set myfile = fs.OpenTextFile(filepath1, 1, False, -2)       '打开该文件用于读
      fs.CopyFile filepath1, filepath
      myfile.Close

      Set myfile = fs.OpenTextFile(filepath, 1, False, -2)       '打开该文件用于读
      p1 = myfile.ReadLine                                     '读文件内容
      p2 = myfile.ReadLine                                     '读文件内容
      p3 = myfile.ReadLine                                     '读文件内容
      p4 = myfile.ReadLine                                     '读文件内容
      p5 = myfile.ReadLine                                     '读文件内容

      p4 = CInt(p4) + 1
      myfile.Close

      Set myfile = fs.OpenTextFile(filepath, 2, False, -2)    '打开该文件用于写
      myfile.WriteLine p1
      myfile.WriteLine p2
      myfile.WriteLine p3
      myfile.WriteLine p4
      myfile.WriteLine p5
      myfile.Close

      fs.CopyFile filepath, filepath1

End Select

Register_Event_Handler
Date = MyDate    '恢复系统日期

If CInt(p4) < 1500 And CInt(DateDiff("d", p1, MyDate)) < 150 Then

         yunxu = 1

Else
      yunxu = 0
      MsgBox "试用期已过"
End If
End Sub

Private Sub er1()
On Error GoTo m1
      Set myfile = fs.CreateTextFile(filepath)                '创建文本对象,如果该文件已经存在，会产生错误
      myfile.Close
      Exit Sub
m1:
      dd = dd + 1
End Sub
Private Sub er2()
On Error GoTo m2
      Set myfile = fs.CreateTextFile(filepath1)                '创建文本对象,如果该文件已经存在，会产生错误
      myfile.Close
      Exit Sub
m2:
      dd = dd + 2
End Sub

有没人高人指点一下，这是什么意思

作者: tmtony 时间: 2010-8-2 18:37
主要是使用文本文件来设置参数, 包括权限控制日期等. 以上代码主要实现对文本文件的读写操作

作者: lodsek9n3 时间: 2010-9-17 09:01
枕头是生活中再常见不过的物品了。它是一种睡眠工具，是人们为了保证舒适的睡眠而创造出来的一种具有悠久历史的东西。枕头的使用让我们的睡眠过程变得更舒适，然而枕头的功用不止于此，精神健康(http://www.qqfs.cn)网专家介绍说，恰当地选择枕头还能为失眠(http://www.866977.cn)症的治疗帮上大忙。　　枕头因为内部材料的不同，发挥的功用就不同，例如，以决明子和绿豆壳为材料的枕头就对失眠(http://www.866977.cn)症的治疗发挥促进作用。　　决明子枕头--决明子性微寒，略带青草香味，枕着睡觉闻着味道，犹如睡在青草丛中。其种子坚硬，可对头部和颈部穴位按摩，所以对肝阳上亢引起的头痛、头晕、失眠(http://www.866977.cn)具有改善作用。另外决明子特有凉爽特性，夏天使用特别舒适，尤其符合中医(http://www.zhejiangqiye.net.cn)“凉头热脚”基本理疗理论。　　绿豆壳枕头---绿豆壳素有枕头填充料“王者”之称，柔软、解暑又凉爽，实为不可多得的精品。绿豆壳即绿豆孵芽(豆芽菜)后之壳，它的特性为清凉、透气、散热快，其清凉成分可以促进血液循环，帮助睡眠，同时其可以降低头部温度，对头脑好。人体经过一天的活动，到了晚上火气会往上升，造成头部积存热气，绿豆壳能退火、降温，安定情绪，帮助入睡，尤其是对失眠(http://www.866977.cn)患者更是大大有利。　　我们知道，睡觉时枕着枕头会舒服，但没有想到有些枕头还对失眠(http://www.866977.cn)症的治疗发挥作用吧。通过上文的介绍，您不妨检查一下自己的枕头，看看到底适不适合枕在您的头下。除了枕头的材料，枕头的高低也对睡眠质量有着影响。　　高枕并非无忧　　正常人睡过高的枕头，无论是仰卧还是侧卧，都会使颈椎生理弧度改变，久而久之，颈部肌肉就会发生劳损、痉挛，加速椎间关节的变形，并促使骨刺形成，导致颈椎不稳定等问题。　　此外，高枕会增大颈部与胸部角度，使气管通气受阻，易导致咽干、咽痛和打鼾。　　低枕并非能够舒适　　正常人长期睡低枕，同样也会改变颈椎生理状态。因头部的静脉无瓣膜，重力会使脑内静脉回流变慢，动脉供血相对增加，从而出现头涨、烦躁、失眠(http://www.866977.cn)等不适症状。　　怎样的高度才合适？　　1. 通常情况下，枕头的适宜高度，以10--15厘米较为合适，但具体尺寸还要因每个人的生理特征，尤其是颈部生理弧度而定。肩宽体胖者枕头可略高一些，而瘦小的人则可稍低些。　　2. 睡眠习惯对于确定枕头的高度也有影响，习惯仰睡的人，其枕头高度应以压缩后与自己的拳头高度(握拳虎口向上的高度为拳高标准)相等为宜;而习惯侧睡的人，其枕头高度应以压缩后与自己的一侧肩宽高度一致为宜。当然，无论仰睡、侧睡都能保持颈部正常生理弧度的枕头是最理想的。　　3. 对于枕头本身而言，支撑脖子后面(颈曲)的部分应稍高一些，并具备一定的硬度，以便能衬托和保持颈部的生理弧度。而支撑后脑勺的部分应较上述部位低3--5厘米，使之既能完全支撑头部，又能与颈部的高度相适应。　　一般来说，患有高血压、心脏病、哮喘的人有时需要睡高枕;患低血压、贫血的人则有时需要睡低枕。　　有研究认为：　　① 仰卧位头后枕：6±1厘米; 　　② 仰卧位颈部枕：11±1厘米; 　　③ 侧卧位脸侧部枕：13±1厘米。www.xffhdt.com(http://www.xffhdt.com) 心福复合多糖(http://www.qq2qq.org.cn)胶囊失眠(http://www.866977.cn)、体虚(http://www.wnsww.cn)、健忘、免疫力(http://www.999diy.com.cn)想了解更多的产品吗，请点击www.gou.vc(http://www.gou.vc)体虚(http://www.wnsww.cn) 购VC(http://www.gou.vc)大陆明星减肥(http://dlmy.259758.com/) 网上购物商城相关文章：青少年抑郁症_糖尿病的诱发因素有哪些？(http://bbs.sulai.com/home.php?mod=space&uid=61004&do=blog&quickforward=1&id=1577)

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3