我写的东西对别人来说是天书，能看懂的是天才

dafu2003 2011-01-29 02:31:35
谁能看懂了，谁就是天才



Public Function genSingleXMLFile(title As String, txt As String, gs As String, desFile As String, Optional showName As Boolean) As Boolean

Dim objDOM As MSXML2.DOMDocument60

Dim objNode As MSXML2.IXMLDOMNode

Dim objHead As MSXML2.IXMLDOMNode

Dim objBody As MSXML2.IXMLDOMNode

Dim i As Integer, s As String

Static fileNo As Long

On Error GoTo errr

  

  Set objDOM = createDOM

  Set objNode = objDOM.CreateNode(NODE_ELEMENT, "snbc", "")

  insertNewLine objDOM, objNode

 

   Set objHead = objDOM.CreateNode(NODE_ELEMENT, "head", "")

    insertNewLine objDOM, objHead

    If m_cfp.isJpgLiked(gs) And showName = False Then

      insertText objDOM, objHead, "title", ""

    Else

      insertText objDOM, objHead, "title", title

    End If

    objNode.AppendChild objHead

    insertNewLine objDOM, objNode

  

    Set objBody = objDOM.CreateNode(NODE_ELEMENT, "body", "")

    insertNewLine objDOM, objBody

    If m_cfp.isTxtLiked(gs) Then

  '  If gs = "txt" Then

      insertText objDOM, objBody, "text", txt

    ElseIf m_cfp.isJpgLiked(gs) Then

      Dim desTmpFile As String, fname As String, newName As String

      fname = txt

      s = m_cfp.getFilePathName(desFile, True)

      desTmpFile = s & "\images\" & m_cfp.GetFileName(fname)

      m_cfp.createPath m_cfp.getFilePathName(desTmpFile, True)

      If LCase(m_cfp.getFilePathName(fname)) <> LCase(m_cfp.getFilePathName(desTmpFile)) Then _

            m_cfp.copyFile fname, desTmpFile, True

         fileNo = fileNo + 1

         newName = m_cfp.newFileName(desTmpFile, fileNo)

         addSubNode objDOM, objBody, "img", Trim(m_cfp.GetFileName(newName))

    End If

    objNode.AppendChild objBody

    insertNewLine objDOM, objBody

 

   objDOM.AppendChild objNode

   Set objNode = Nothing

   If objDOM.parseError.errorCode = 0 Then

'      m_cfp.createPath m_cfp.getFilePathName(desFile, True)

      objDOM.Save desFile

      genSingleXMLFile = True

   Else

      RaiseEvent showMsg(objDOM.parseError.reason)

   End If

errr:

  Set objDOM = Nothing

End Function



Public Function setTextsXMLFile(title As String, textFiles() As String, n As Long, desFile As String, Optional showName As Boolean) As Boolean

Dim objDOM As MSXML2.DOMDocument60

Dim objNode As MSXML2.IXMLDOMNode

Dim objHead As MSXML2.IXMLDOMNode

Dim objBody As MSXML2.IXMLDOMNode

Dim i As Long, s As String, cd

Dim fname As String, despath As String



On Error GoTo errr

' n = UBound(picfiles)

 If n = 0 Then Exit Function

       despath = m_cfp.getFilePathName(desFile, True)

      despath = m_cfp.getFilePathName(despath) & "snbc"

      m_cfp.createPath despath



   Set objDOM = createDOM

   Set objNode = objDOM.CreateNode(NODE_ELEMENT, "snbc", "")

   insertNewLine objDOM, objNode

 

   Set objHead = objDOM.CreateNode(NODE_ELEMENT, "head", "")

    insertText objDOM, objHead, "title", title

   objNode.AppendChild objHead

   insertNewLine objDOM, objNode



    Set objBody = objDOM.CreateNode(NODE_ELEMENT, "body", "")

    insertNewLine objDOM, objBody

    

    For i = 1 To n

      Dim chapterTitle As String, buff As String, gs As String

      gs = m_cfp.getFileExtName(textFiles(i))

      If m_cfp.isTxtLiked(gs) Then

        chapterTitle = vbCrLf & m_cfp.getFileTitleName(textFiles(i)) & vbCrLf

        If showName Then insertText objDOM, objBody, "text", chapterTitle

        buff = m_cfp.loadTxtFile(textFiles(i))

        insertText objDOM, objBody, "text", buff

      End If

    Next i

    insertNewLine objDOM, objBody

   objNode.AppendChild objBody

   insertNewLine objDOM, objNode

  

   objDOM.AppendChild objNode

   Set objNode = Nothing

 If objDOM.parseError.errorCode = 0 Then

   m_cfp.createPath m_cfp.getFilePathName(desFile, True)

   objDOM.Save desFile

   setTextsXMLFile = True

 Else

    RaiseEvent showMsg(objDOM.parseError.reason)

 End If

errr:

 Set objDOM = Nothing

End Function



Public Function setAllXMLFileByChapters(title As String, files() As String, n As Long, desSNBPath As String, Optional showName As Boolean) As Boolean

Dim i As Long, s As String, desFile As String

Dim fname As String, despath As String

     Dim buff As String, gs As String, titleTmp As String

     Dim istxt As Boolean, isjpg As Boolean, newName As String

     Dim desTmpFile As String

On Error GoTo errr

 If n = 0 Then Exit Function

 despath = m_cfp.justPath(desSNBPath)

 m_cfp.createPath despath

 For i = 1 To n

      fname = files(i)

      titleTmp = m_cfp.getFileTitleName(fname)

      gs = m_cfp.getFileExtName(fname)

      If m_cfp.isTxtLiked(gs) Then

        buff = m_cfp.loadTxtFile(fname)

        gs = "txt"

      ElseIf LCase(gs) = "htm" Or LCase(gs) = "html" Then

         buff = m_Html.Html2Text1(fname, s)

         gs = "txt"

      ElseIf m_cfp.isJpgLiked(gs) Then

        buff = fname

         gs = "jpg"

      ElseIf gs = "pdf" Then

        desFile = despath & "\file_" & format(i, "000") & ".pdf"

         m_cfp.copyFile fname, desTmpFile, True

      End If

      If gs <> "pdf" Then

        desFile = despath & "\file_" & format(i, "000") & ".snbc"

        If m_cfp.fileExist(desFile) Then m_cfp.delFile desFile, True

        If genSingleXMLFile(titleTmp, buff, gs, desFile, showName) = False Then GoTo errr

      End If

 Next i

   setAllXMLFileByChapters = True

errr:

End Function



Public Function setAllXMLFile(title As String, files() As String, n As Long, desFile As String, Optional showName As Boolean) As Boolean

Dim objDOM As MSXML2.DOMDocument60

Dim objNode As MSXML2.IXMLDOMNode

Dim objHead As MSXML2.IXMLDOMNode

Dim objBody As MSXML2.IXMLDOMNode

Dim i As Long, s As String, cd

Dim fname As String, despath As String

     Dim chapterTitle As String, buff As String, gs As String, titleTmp As String

     Dim istxt As Boolean, isjpg As Boolean, newName As String

     Dim desTmpFile As String

On Error GoTo errr

' n = UBound(picfiles)

 If n = 0 Then Exit Function

       despath = m_cfp.getFilePathName(desFile, True)

      despath = m_cfp.getFilePathName(despath) & "snbc"

      m_cfp.createPath despath



   Set objDOM = createDOM

  

    Set objNode = objDOM.CreateNode(NODE_ELEMENT, "snbc", "")

    insertNewLine objDOM, objNode

 

   Set objHead = objDOM.CreateNode(NODE_ELEMENT, "head", "")

    insertText objDOM, objHead, "title", title

   objNode.AppendChild objHead

   insertNewLine objDOM, objNode



    Set objBody = objDOM.CreateNode(NODE_ELEMENT, "body", "")

    insertNewLine objDOM, objBody

    

    For i = 1 To n

      fname = files(i)

      gs = m_cfp.getFileExtName(fname)

      titleTmp = m_cfp.getFileTitleName(fname)

      istxt = m_cfp.isTxtLiked(gs)

      isjpg = m_cfp.isJpgLiked(gs)   '(gs = "jpg" Or gs = "png")

      chapterTitle = vbCrLf & titleTmp & vbCrLf

      If showName And istxt Then insertText objDOM, objBody, "text", chapterTitle

      If istxt Then

          buff = m_cfp.loadTxtFile(fname)

          insertText objDOM, objBody, "text", buff

      Else

         desTmpFile = despath & "\images\" & m_cfp.GetFileName(fname)

         m_cfp.createPath m_cfp.getFilePathName(desTmpFile, True)

       If LCase(m_cfp.getFilePathName(fname)) <> LCase(m_cfp.getFilePathName(desTmpFile)) Then _

            m_cfp.copyFile fname, desTmpFile, True

         newName = m_cfp.newFileName(desTmpFile, i)

         addSubNode objDOM, objBody, "img", Trim(m_cfp.GetFileName(newName))

      End If

    Next i

    insertNewLine objDOM, objBody

   objNode.AppendChild objBody

   insertNewLine objDOM, objNode

  

   objDOM.AppendChild objNode

   Set objNode = Nothing

 If objDOM.parseError.errorCode = 0 Then

   m_cfp.createPath m_cfp.getFilePathName(desFile, True)

   objDOM.Save desFile

   setAllXMLFile = True

 Else

    RaiseEvent showMsg(objDOM.parseError.reason)

 End If

errr:

 Set objDOM = Nothing

End Function



Public Function setPicturesXMLFile(title As String, picFiles() As String, n As Long, desFile As String, Optional showName As Boolean) As Boolean

Dim objDOM As MSXML2.DOMDocument60

Dim objNode As MSXML2.IXMLDOMNode

Dim objHead As MSXML2.IXMLDOMNode

Dim objBody As MSXML2.IXMLDOMNode

Dim i As Long, s As String

Dim fname As String, despath As String, desTmpFile As String, newName As String



On Error GoTo errr

' n = UBound(picfiles)

 If n = 0 Then Exit Function

     despath = m_cfp.getFilePathName(desFile, True)

     m_cfp.createPath despath



   Set objDOM = createDOM

  

   Set objNode = objDOM.CreateNode(NODE_ELEMENT, "snbc", "")

    insertNewLine objDOM, objNode

 

   Set objHead = objDOM.CreateNode(NODE_ELEMENT, "head", "")

    insertNewLine objDOM, objHead

    insertText objDOM, objHead, "title", title

   objNode.AppendChild objHead

    insertNewLine objDOM, objNode

 

    Set objBody = objDOM.CreateNode(NODE_ELEMENT, "body", "")

    insertNewLine objDOM, objBody

  

    insertText objDOM, objBody, "text", title

    

    For i = 1 To n

        fname = despath & "\" & m_cfp.GetFileName(picFiles(i))

        desTmpFile = despath & "\images\" & m_cfp.GetFileName(fname)

         m_cfp.createPath m_cfp.getFilePathName(desTmpFile, True)

       If LCase(m_cfp.getFilePathName(fname)) <> LCase(m_cfp.getFilePathName(desTmpFile)) Then _

            m_cfp.copyFile fname, desTmpFile, True

         newName = m_cfp.newFileName(desTmpFile, i)

        If showName Then insertText objDOM, objBody, "text", m_cfp.getFileTitleName(fname)

         addSubNode objDOM, objBody, "img", Trim(m_cfp.GetFileName(newName))

    Next i

    

   objNode.AppendChild objBody

   insertNewLine objDOM, objNode

   objDOM.AppendChild objNode

   Set objNode = Nothing

 If objDOM.parseError.errorCode = 0 Then

   m_cfp.createPath m_cfp.getFilePathName(desFile, True)

   objDOM.Save desFile

    setPicturesXMLFile = True

 Else

    RaiseEvent showMsg(objDOM.parseError.reason)

 End If

errr:

 Set objDOM = Nothing

End Function
...全文
146 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
贝隆 2011-01-30
  • 打赏
  • 举报
 回复
4楼含蓄且强悍！服了
杨哥儿 2011-01-30
  • 打赏
  • 举报
 回复
不就是XML文件操作吗？
码之魂 2011-01-29
  • 打赏
  • 举报
 回复
垃圾~!
无·法 2011-01-29
  • 打赏
  • 举报
 回复
不了解你用的那些组件。如果别人了用一些你从来没用过的组件来写一片代码你同样也看不懂。所以这没什么值得炫耀的。
熊孩子开学喽 2011-01-29
  • 打赏
  • 举报
 回复
不想当将军的账房不是一个好厨师
网络菜鸟00 2011-01-29
  • 打赏
  • 举报
 回复

4楼一针见血……
booksoon 2011-01-29
  • 打赏
  • 举报
 回复
自己能懂吗?现在懂,再过一星期,一年,两年...
神马都能聊 2011-01-29
  • 打赏
  • 举报
 回复
不想写注释的程序员不是好宅男
帝企鹅已被占用 2011-01-29
  • 打赏
  • 举报
 回复
不知道哪里抄来的。
我是看不懂。
捧剑者 2011-01-29
  • 打赏
  • 举报
 回复
http://baike.baidu.com/view/20460.htm
dbcontrols 2011-01-29
  • 打赏
  • 举报
 回复
楼主贴一下insertNewLine的代码吧
没良心 2011-01-29
  • 打赏
  • 举报
 回复
挺漂亮的。。
python分布式爬虫从入门到精通实战
因为对代码的不理解、没有编程思维，看文档简直就像是在看天书。另外大部分的最新文档都是英文版的，本套教程直接整理出爬虫爬取需要用到的部分。没有繁杂哆唆的理论，用最简单的语言告诉你学习的重点知识，让你快速...
详解匿名函数递归：从此也能看懂天书代码了
说到递归，惯例是用求阶乘来作为例子，我们先看一下阶乘的递推公式：$$F(0) = 1$$# pythondef F(n):是不是跟上面的数学公式非常像，只不过多了一些函数定义的语句。给递归下一个通俗的定义：递归就是在一个函数内部自己调用自己。递归有很多好处，可以让代码变得非常简单易懂，而且你能从递归的代码中欣赏到数学公式一样的美。当然，使用递归容易遇到性能问题，这个就不在本文讨论范围之内了。匿名函数也是函数编程里面很重要的概念，可以类比为一个没有变量名字的表达式。# python。
等待8年，一度只有一人能看懂的600页“天书”数学证明，他宣称解决了当今数学界最大的难题之一...
2012年的一天，日本数学家望月新一（Shinichi Mochizuki）将4篇论文挂到了他的网站上。这些论文的总篇幅超过了600页，望月新一在论文中宣称，他解决了ABC猜想——当今数学界最大的难题之一。然而，论文公开后，在很长一段时间内，能读懂这篇论文的数学家寥寥无几。望月新一的证明，也成了数学界的一桩悬案。同年4月3日，望月新一关于ABC猜想的证明发表在《数理解析研究所公刊》（PRIMS），...
Android开发已过时，转行风险大，Android原生开发出路在哪
学习成本低，不意味着就没有成本 编程难么？说实话还是挺难的，这里我是针对大部分没有基础的人来说的，不排除有天才、大神能无师自通。很多人对编程的印象来自于电影，即使现实中有程序员朋友，你也很难 get 到他每天到底在电脑前干啥。为什么用键盘输入一句话，电脑就开始自动帮你干活了，这些你 《Android学习笔记总结+最新移动架构视频+大厂安卓面试真题+项目实战源码讲义》 浏览器打开：qq.cn.hn/FTe 免费领取 没有自己写代码之前，是没有体感的。隔行如隔山，就跟我读别的行业的文章跟天书一样，想转行，是
【超实用】面对枯燥的源码，如何才能坚持看下去？[转]
转自https://www.cnblogs.com/chanshuyi/p/how_to_read_source_code.html 一个软件开发人员，工作到了一定的年限（一般是3、4年左右），如果他还没学会阅读源码，那么他就会遇到瓶颈。因为到了这个时候的开发，他应该不仅仅只会做那些 CURD 的业务逻辑，而应该会根据公司的实际情况去写框架。而基本上没有谁能像天才一样从零写出一个框架，很多人写...
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章