yualong00 yualong00
关注数: 115 粉丝数: 1,108 发帖数: 18,198 关注贴吧数: 64
【中哲】最近卡在一个瓶颈不得突破,希望能有高手站出来指点... 最近卡在一个瓶颈不得突破,希望能有高手站出来指点一番。 早期是研究“大”字,后来建立世界观也满足了这个大字,大得有点令人害怕,但还是掌握住了。 后来研究“学”字。就是重新以方法论的眼光看文字。把作文、小说、论文、古诗、公文什么的都看透了,是用看逻辑的方法看透作者的思路、用词。学的第一阶段是引用,很长时间都认为举例子是最有说服力的论据,经常引用很多事例来说服别人,确实也有效。但慢慢的开始觉得这样还只是低端的普遍的一种做法,想提升。开始看古诗和听古风歌曲,体会那种意境和逻辑。最近几天,古风也累积了足够的感悟,看破了古风。本想现在已经完全吃透了文学层面的东西,应该能像个诗人一样可以创作诗词了,可是还是没有任何自己能作诗的感觉。也就是我卡在学与创的边界,形成一个本不该有的瓶颈。 想求高人指点,我到底还缺了什么,怎么会卡在这么一个我认为根本不该有的瓶颈,应该是平稳的就从学字境界过渡到“创”字境界才对啊? 天下文学类文章对我已经没有秘密,(易经这些是玄学,不是文学,我不研究。)随便扫一眼便能知道作者想表达什么,大概分什么层次,逻辑性怎么样,破绽在哪里,作者的年龄、性格、世界观形状都能大体清楚。 我虽然能快速看透别人的逻辑,但自己写东西却体现不出逻辑,已经完全学会了,却用不出来,这是怎么回事。 求高手帮我。
【中哲】论哲吧的唯我独尊现象 哲学家的表象就是无比的自信,自信和唯我独尊是一个近义词,所以哲学达到自信之后的下一个阶段就是突破唯我独尊。哲吧你们都看到了,有多少唯我独尊的人在发帖,还有多少唯我独尊的人在驳斥他?还有更多的唯我独尊的人懒得发帖懒得驳贴。 能自信,至少是个哲学家。能感觉到自己处在唯我独尊阶段,开始寻找突破的办法,能算是个大师。要能突破唯我独尊,就能成就宗师。可惜多少年来,突破的人寥寥无几。有人说他突破了,突破到中庸,这能叫突破么?这叫逃避! 中庸其实是一种自我封闭,达到了古代中哲的六字箴言:存天理,灭人欲。无欲了,哲学之道也就停了。其实中庸并非无欲,而是欲过大,以本人能力,已经无法达到此欲了。中庸之道要突破,必须集政权、军权、民心于一身。在西方,因为其三权分立的体制,是无法突破中庸的,只有在东方才能突破。这也注定了十三亿人中,同一时间仅有一人可能去突破,这突破中庸实在比登天还难。近代仅有一人突破了中庸,可惜最后还是被推倒,所以中庸之道还是不突破为好。 中庸之人适合做哲学导师,其经验和哲理都很强,能让一个中庸者看中你,是你的福气,这代表你哲学之路的步伐要比别人快。 唯我独尊是好事,就看你如何突破了,也许下一个宗师就是你! 2013年10月17日11:23:46
excel中VB5.8编程,不知道哪里有问题 思路: 搜索电脑F盘内全部.xls文件,搜索到立即打开,如果发现有名称为00000ppy的隐藏工作表(位置是格式-工作表-取消隐藏),则删除此表。然后删除插入-名称-定义中所有定义项目,保存工作表,关闭,继续循环到全部项目完成。 我改编了一个,不知道是什么语言的。懂的可以看看。使用起来没错,但无法删除那些我要删的内容,望高手指导。 Dim fs Dim mypath As String Dim theSh As Object Dim theFolder As Object Set theSh = CreateObject("shell.application") Set theFolder = theSh.BrowseForFolder(0, "", 0, "") If Not theFolder Is Nothing Then mypath = theFolder.Items.Item.Path End If Set fs = Application.FileSearch With fs .NewSearch .SearchSubFolders = True .LookIn = mypath .Filename = "*.xls" If .Execute(SortBy:=msoSortByFileName) > 0 Then c = .FoundFiles.Count Application.ScreenUpdating = False Application.AskToUpdateLinks = False Application.DisplayAlerts = False On Error Resume Next For i = 1 To c Workbooks.Open Filename:=.FoundFiles(i) Sheets("00000ppy").Visible = -1 Sheets("00000ppy").Delete ActiveWorkbook.Names("solar_ratio").Delete ActiveWorkbook.Names("ss7fee").Delete ActiveWorkbook.Names("subsfee").Delete ActiveWorkbook.Names("toolbox").Delete ActiveWorkbook.Names("Z32_Cost_red").Delete ActiveWorkbook.Names("V5.1Fee").Delete ActiveWorkbook.Save ActiveWorkbook.Close Next End If End With Set fs = Nothing Application.ScreenUpdating = True Application.AskToUpdateLinks = True Application.DisplayAlerts = True End Sub 可以运行,也能搜索,有时候能删,有时候不行,不知道怎么办了。
首页 3 4 5 6 7 8 下一页