全宇宙最帅De男人
全宇宙最帅De男人

宏

1

Sub typeset()
'
' typeset 宏
'
'   调整格式
    Selection.WholeStory
    Selection.ClearParagraphDirectFormatting
    Set myRange = ActiveDocument.Range(Start:=0, End:=ActiveDocument.Characters.Count)
    myRange.Select
    myRange.Cut
    myRange.PasteAndFormat (wdFormatPlainText)
   Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    
'   首行缩进
    
    With Selection.ParagraphFormat
 
        .LeftIndent = CentimetersToPoints(0)
 
        .RightIndent = CentimetersToPoints(0)
 
        .SpaceBefore = 0
 
        .SpaceBeforeAuto = False
 
        .SpaceAfter = 0
 
        .SpaceAfterAuto = False
 
        .LineSpacingRule = wdLineSpaceSingle
 
        .Alignment = wdAlignParagraphJustify
 
        .WidowControl = False
 
        .KeepWithNext = False
 
        .KeepTogether = False
 
        .PageBreakBefore = False
 
        .NoLineNumber = False
 
        .Hyphenation = True
 
        .FirstLineIndent = CentimetersToPoints(0)
 
        .OutlineLevel = wdOutlineLevelBodyText
 
        .CharacterUnitLeftIndent = 0
 
        .CharacterUnitRightIndent = 0
 
        .CharacterUnitFirstLineIndent = 0
 
        .LineUnitBefore = 0
 
        .LineUnitAfter = 0
 
        .MirrorIndents = False
 
        .TextboxTightWrap = wdTightNone
 
        .AutoAdjustRightIndent = True
 
        .DisableLineHeightGrid = False
 
        .FarEastLineBreakControl = True
 
        .WordWrap = True
 
        .HangingPunctuation = True
 
        .HalfWidthPunctuationOnTopOfLine = False
 
        .AddSpaceBetweenFarEastAndAlpha = True
 
        .AddSpaceBetweenFarEastAndDigit = True
 
        .BaseLineAlignment = wdBaselineAlignAuto
 
    End With
    
'   清除空行，空格
    
    Dim i As Paragraph, n As Long
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
    If Len(i.Range) = 1 Then
    i.Range.Delete
    n = n + 1
    End If
    Next
    Application.ScreenUpdating = True
    Options.AutoFormatAsYouTypeDeleteAutoSpaces = True
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = " "
    .Replacement.Text = ""
    .Wrap = wdFindContinue
    End With
    With Selection.Find
    .Text = " "
    .Replacement.Text = ""
    .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
   
    



'   页脚 Start
    Set viewActive = ActiveDocument.ActiveWindow.ActivePane.View
    viewActive.SeekView = wdSeekCurrentPageFooter
    
    Selection.WholeStory
    Selection.TypeBackspace
    
    Selection.Font.Name = "宋体"
    Selection.Font.Size = 10
    
    Selection.Paragraphs.Alignment = wdAlignParagraphRight
    Selection.TypeText ("当事人签名")
    
    Dim wdUnit As WdUnits
    wdUnit = WdUnits.wdLine
    
    Dim nLineBegin, nLineEnd As Long
    Selection.HomeKey (wdUnit)
    nLineBegin = Selection.Start
    Selection.EndKey (wdUnit)
    nLineEnd = Selection.End
    
    Dim nLineCount As Long
    nLineCount = 48 - (nLineEnd - nLienStart)
    
   
    For n = 0 To nLineCount
        Selection.TypeText ("__")
    Next n
        
    Selection.Paragraphs.Alignment = wdAlignParagraphLeft
    viewActive.SeekView = wdSeekMainDocument
'   页脚 End

        Selection.WholeStory
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.54)
        .BottomMargin = CentimetersToPoints(1.4)
        .LeftMargin = CentimetersToPoints(2.2)
        .RightMargin = CentimetersToPoints(1.3)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.3)
        .FooterDistance = CentimetersToPoints(2)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .CharsLine = 42
        .LinesPage = 32
        .LayoutMode = wdLayoutModeGrid
    End With
    

        
    
    If (ActiveDocument.Paragraphs.Count >= 1) Then
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Selection.MoveLeft unit:=wdCharacter, Count:=1
    Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Font.Name = "楷体"
    Selection.Font.Bold = wdToggle
    Selection.Font.Size = 22
    Selection.MoveRight unit:=wdCharacter, Count:=1
    End If
    
    If (ActiveDocument.Paragraphs.Count >= 2) Then
    Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Font.Name = "楷体"
    Selection.Font.Bold = wdToggle
    Selection.Font.Size = 22
    Selection.MoveRight unit:=wdCharacter, Count:=1
    End If
    
    If (ActiveDocument.Paragraphs.Count >= 3) Then
    Selection.MoveDown unit:=wdParagraph, Count:=ActiveDocument.Paragraphs.Count - 2, Extend:=wdExtend
    
    Selection.Font.Name = "宋体"
    Selection.Font.Size = 12
    
    
    
    
    
    Selection.MoveRight unit:=wdCharacter, Count:=1
    End If
    


End Sub

2

    Selection.Find.ClearFormatting '清除查找框格式
    Selection.Find.Replacement.ClearFormatting '清除替换框格式
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True '向后搜索
        .Wrap = wdFindContinue
        .Format = False ' 不清除格式
        .MatchCase = False ' 匹配大小写
        .MatchWholeWord = False ' 整词匹配
        .MatchByte = False ' 全角
        .MatchWildcards = False '不勾选"使用通配符"
        .MatchSoundsLike = False ' 不匹配 同音词
        .MatchAllWordForms = False ' 不查找单词的所有形式
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '将^p^p替换为^p
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '将空格替换为正确的格式
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '设置页面布局
    With ActiveDocument.PageSetup
        .Orientation = wdOrientPortrait '页面方向为纵向
        .TopMargin = CentimetersToPoints(1.27) '上边距
        .BottomMargin = CentimetersToPoints(1.27) '下边距
        .LeftMargin = CentimetersToPoints(1.27) '左边距
        .RightMargin = CentimetersToPoints(1.27) '右边距
        .Gutter = CentimetersToPoints(0) '装订线0cm
        .HeaderDistance = CentimetersToPoints(1.5) '页眉
        .FooterDistance = CentimetersToPoints(1.75) '页脚
        .PageWidth = CentimetersToPoints(25) '纸张宽
        .PageHeight = CentimetersToPoints(35.4) '纸张高
        .SectionStart = wdSectionNewPage '节的起始位置：新建页
        .OddAndEvenPagesHeaderFooter = False '不勾选"奇偶页不同"
        .DifferentFirstPageHeaderFooter = False '不勾选"首页不同"
        .VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为"顶端对齐"
        .SuppressEndnotes = False '不隐藏尾注
        .MirrorMargins = False '不设置首页的内外边距
        .BookFoldRevPrinting = False '不设置手动双面打印
        .BookFoldPrintingSheets = 1 '默认打印份数为1
        .GutterPos = wdGutterPosLeft '装订线位于左侧
        .LayoutMode = wdLayoutModeLineGrid '版式模式为"只指定行网格"
    End With
    '设置段落
    With ActiveDocument.Paragraphs
        .CharacterUnitFirstLineIndent = 2
        .Alignment = wdAlignParagraphLeft   '居左对齐
        .SpaceBefore = 0 '段前间距
        .SpaceBeforeAuto = False
        .SpaceAfter = 4 '段后间距
        .SpaceAfterAuto = False
        '.LineSpacingRule = wdLineSpaceExactly '单倍行距,可以自定义数值
        '必须注释这一行,否则图片变为悬浮格式
        .LineSpacing = 14 '行间距XX磅
        .WidowControl = -1 '孤行控制,可以控制tab键不必过长
        .KeepWithNext = 0 '与下段同页
        .KeepTogether = 0 '段中不分页
        .PageBreakBefore = 0 '段前分页
    End With
    '删除所有超链接书签和连接
        With ActiveDocument
                Dim myLink As Hyperlink
                Dim myBookmark As Bookmark
                Dim myField As Field
                For Each myLink In .Hyperlinks
                        'myLink.Delete '删除所有超链接
                Next myLink
                For Each myBookmark In .Bookmarks
                        myBookmark.Delete ''删除"链接"中的"书签"(灰色中括号标记)
                Next myBookmark
                For Each myField In .Fields
                        'myField.Unlink '删除所有烦人链接
                Next myField
        End With
        ActiveDocument.Save
        Call addReviseDate
End Sub
  • 按照《党政机关公文格式》GB/9704-2012的排版方式对一级、二级、三级、四级、五级标题进行排版，在使用前确定自己的电脑装有小标宋、黑体、仿宋。
  • 正文首行缩进2字符，如果段落第一个字是“致：”xx公司，或者“敬启者”则段落会顶格，不会缩进。
  • 更改所有硬回车为软回车
  • 去除所有空行
  • 去除半角空格
  • 去除全角空格
  • 替换非标准引号为标准引号
Sub 法律文件自动排版()
'
Application.ScreenUpdating = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "　"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """(*)"""
.Replacement.Text = ChrW(8220) & "\1" & ChrW(8221)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Dim qjsz, bjsz As String, iii As Integer
qjsz = "０１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ,/<>?;’:[]{}\|=-+_)(*%$#@!`~&"
bjsz = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ，／《》？；'：【】｛｝＼｜＝－＋＿）（×％＄＃＠！'〜＆"
Selection.WholeStory
For iii = 1 To 95
With Selection.Find
.Text = Mid(qjsz, iii, 1)
.Replacement.Text = Mid(bjsz, iii, 1)
.Format = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
Next iii
With ActiveDocument.Styles(wdStyleHeading1).Font
.Color = wdColorBlack
.Bold = True
.Size = 22
.Name = "小标宋"
End With
With ActiveDocument.Styles(wdStyleHeading2).Font
.Color = wdColorBlack
.Bold = False
.Size = 14
.Name = "黑体"
End With
With ActiveDocument.Styles(wdStyleHeading3).Font
.Color = wdColorBlack
.Bold = True
.Size = 14
.Name = "楷体"
End With
With ActiveDocument.Styles(wdStyleHeading4).Font
.Color = wdColorBlack
.Bold = True
.Size = 14
.Name = "仿宋"
End With
With ActiveDocument.Styles(wdStyleHeading5).Font
.Color = wdColorBlack
.Bold = False
.Size = 14
.Name = "仿宋"
End With
With ActiveDocument.Styles(wdStyleNormal).Font
.Color = wdColorBlack
.Bold = False
.Size = 14
.Name = "仿宋"
End With
Dim ib As Paragraph
For Each ib In ActiveDocument.Paragraphs
If ib.Range.Information(wdWithInTable) = False Then
ib.Range.Select
Selection.ClearFormatting

If ib.Range.Characters.Last.Previous = "。" Or ib.Range.Characters.Last.Previous = "；" Then GoTo N2
Else
End If

If ib.Range Like "[一二三四五六七八九十百零千]、*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading2
Else
End If

ElseIf ib.Range Like "（[一二三四五六七八九十百零千]）*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading3
Else
End If

ElseIf ib.Range Like "[0-9][、.．]*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading4
Else
End If
ElseIf ib.Range Like "（[0-9]）*" Then
If ib.Range.Sentences.Count = 1 Then
ib.Range.Style = wdStyleHeading5
Else
End If
Else
End If

N2:
Next
With ActiveDocument.Paragraphs(1)
.SpaceAfter = 12
.SpaceBefore = 12
End With
With ActiveDocument.Paragraphs(1).Range
.Style = ActiveDocument.Styles(wdStyleHeading1)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
paragraphcount = ActiveDocument.Paragraphs.Count
Set myrange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, End:=ActiveDocument.Paragraphs(paragraphcount).Range.End)
myrange.Select
With Selection.ParagraphFormat
.LineSpacing = LinesToPoints(1.5)
.CharacterUnitFirstLineIndent = 2
.SpaceAfter = 0
.SpaceBefore = 0
End With
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = "致："
Do While .Execute(Forward:=True) = True
With Selection
.MoveEnd Unit:=wdParagraph, Count:=1
Selection.ParagraphFormat.Reset
Selection.Font.Bold = True
.Collapse Direction:=wdCollapseEnd
End With
Loop
End With
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = "敬启者"
Do While .Execute(Forward:=True) = True
With Selection
.MoveEnd Unit:=wdParagraph, Count:=1
Selection.ParagraphFormat.Reset
Selection.Font.Bold = True
.Collapse Direction:=wdCollapseEnd
End With
Loop
End With
End Sub

4.最后困扰的解决
去除空格

去除空格（按章节替换，最简）
ActiveDocument.Sections(1).Range.Find.Execute findtext:=" ", replacewith:="", _
       Replace:=wdReplaceAll

去除空格（按段落循环）
For p = 1 To ActiveDocument.Paragraphs.Count
       ActiveDocument.Paragraphs(p).Range.Find.Execute findtext:=" ", replacewith:="", _
           Replace:=wdReplaceAll
   Next p

删除段落前后的空格
For a = 1 To ActiveDocument.Paragraphs.Count
       Set sutRng = ActiveDocument.Paragraphs(a).Range
       'MsgBox Len(strTmp)
 sutRng.MoveEnd wdCharacter, -1
       sutRng.Text = Trim(sutRng.Text)
 sutRng.MoveEnd wdCharacter, 1
       ActiveDocument.Paragraphs(a).Range.Text = sutRng.Text
   Next a

你可能感兴趣的:(宏)

  • 【Vim Masterclass 笔记16】S07L32 + L33：同步练习09 —— 掌握 Vim 宏操作的六个典型案例（含点评课内容） 安冬的码畜日常 VimMasterclassvim笔记vim宏同步练习自学笔记
    文章目录S07L32Exercise09-Macros1训练目标2操作指令2.1.打开macros-practice.txt文件2.2.练习1：将旧版Python代码转换为新版写法2.3.练习2：根据列表内容批量创建Shell脚本2.4.练习3：对电话号码作格式化处理2.5.练习4：从日志文件中提取重要数据2.6.练习5：将多行数据压缩为一行2.7.练习6：从HTML中提取数据3退出VimS07L
  • 浅析NAT的类型-ZT icu 技术类网络服务器路由器防火墙domainmobile
    浅析NAT的类型何宝宏[1]摘要介绍了四种典型的NAT类型和两种典型的传统NAT类型。关键词NATNATP类型一、引言RFC1631以及相关RFC定义的网络地址翻译器(NAT)。IETF一直主张利用IPv6技术解决地址短缺问题，因此IETF虽然出版了几个与NAT相关的RFC，但对NAT技术(尤其是穿越问题)一直没有系统的标准化工作，如SIP和MobileIP就是NAT出现后设计的一些协议，都未考虑
  • python调用excel宏函数，封装 garra_ pythonpythonpycharm
    用excel中开发者模式的VBA对excel内容操作，可以采用VB6.0或者VS搭建用户窗口，但是由于VB6.0软件版本太低，很多用户窗口函数调用与目前excel自带函数不兼容，则直接用python调用excel宏，并打包成exe。分为几部分：目录1，python调用excel函数及内容2，python封装exe修改spec文件1，python调用excel函数及内容python调用excel采用
  • AI Coding，亦或 AI for Coding？ 编程语言
    Go+编程语言创始人、七牛云创始人兼CEO许式伟，中国科学院软件研究所PLCT实验室负责人、建立中国RISC-V生态的甲辰计划主理人吴伟，专注RISC-V编译器和硬件笔记本开发的鉴释科技联合创始人兼CEO梁宇宁聚首2024IDEA大会，从软件与硬件的双重视角，剖析大模型时代，编程语言的软硬件发展机会。IDEA研究院基础软件中心负责人张宏波主持这场讨论。基础软件行业的变革之所以显著，是因为它紧随人机
  • Cherno C++学习笔记 P53 模板 14_11 ChernoC++学习学习笔记c++
    这篇文章我们会讲一下C++模板，这个是一个非常有意思的且有用的东西，我们平时使用的STL其实就是基于模板编写的。它几乎就像一个宏，可以去做我们想做的任何事情。模板也可以称其为泛型，但是它比泛型要强大得多。模板是一个非常非常大的话题，所以这里我们只会讲解它简单的应用。它的本质是可以根据我们自己的用途，为其定义一个模板，然后编译器会根据我们给出的规则来帮助我们编写代码，可以让我们省去很多麻烦。所以使用
  • C语言宏函数 南林yan C语言c语言
    一、什么是宏函数？通过宏定义的函数是宏函数。如下，编译器在预处理阶段会将Add(x,y)替换为((x)*(y))#defineAdd(x,y)((x)*(y))#defineAdd(x,y)((x)*(y))intmain(){inta=10;intb=20;intd=10;intc=Add(a+d,b)*2;cout<
  • C语言如何定义宏函数？ 小九格物 c语言
    在C语言中，宏函数是通过预处理器定义的，它在编译之前替换代码中的宏调用。宏函数可以模拟函数的行为，但它们不是真正的函数，因为它们在编译时不会进行类型检查，也不会分配存储空间。宏函数的定义通常使用#define指令，后面跟着宏的名称和参数列表，以及宏展开后的代码。宏函数的定义方式：1.基本宏函数：这是最简单的宏函数形式，它直接定义一个表达式。#defineSQUARE(x)((x)*(x))2.带参
  • ARM驱动学习之5 LEDS驱动 JT灬新一 嵌入式C底层arm开发学习单片机
    ARM驱动学习之5LEDS驱动知识点：•linuxGPIO申请函数和赋值函数–gpio_request–gpio_set_value•三星平台配置GPIO函数–s3c_gpio_cfgpin•GPIO配置输出模式的宏变量–S3C_GPIO_OUTPUT注意点：DRIVER_NAME和DEVICE_NAME匹配。实现步骤：1.加入需要的头文件：//Linux平台的gpio头文件#include//三
  • 敢于承认 a九点三十六
    我不知道以什么样的格式或者方式来分享自己的感悟。我记住了一点，能给大家带来帮助的内容，一定是正能量的。分享以下几点：一、分享：刚刚在写分享的时候忽然让我感受到那种为别人“分享”的心里喜悦。在什么情况下能体会到这种感受呢？在我的感受是一定真诚想给别人带来有所收获的内容，想给别人有所帮助的心里，没有任何目的的。有了这种感受还源自于想到了之前发生的事，源自于刘珅宏导师的点拨，还有家人的分享。写着写着忽然
  • 《中原焦点团队》网络初期班37期 董宏坚持原创分享第4天 2022年9月18日 df15ba2b5d6a
    路慢慢，其修远兮，真正做到知行合一真的感觉很难，需要不断的学习，成长，学会的东西能用在了自己身上了，那才是智慧，很多的时候感觉理论学会了，似乎感觉到内心的声音了，可就是不知道如何去运用，也许内心真正的力量还没挖掘出来，在人生的黑暗时刻摸摸索索的前行，焦点无形中成了我新希望，给了我前进的方向。
  • 想要什么就赞美什么 9aff76b7628b
    尊敬的刘绅宏导师，宋姜华导师，以及亲爱的家人们大家现在好？这段时间以来，我都在赞美我家两个宝贝有礼貌，见到小区里面的爷爷、奶奶都会主动的打招呼，爷爷奶奶好！今天下午吃完饭，我带他们出去给姐姐买东西，在电梯里遇到了一个男孩和一个女孩，我女儿很有礼貌的叫了一声阿姨好，那个女孩本来在看手机的，惊讶的把头抬起来朝我女儿笑了一下，出了电梯，我就开始赞美了，我说嘉贝你好有礼貌，见到爷爷奶奶，叔叔阿姨，你都会打
  • c语言中宏描述错误,C 宏定义与错误处理 Yyviuss c语言中宏描述错误
    宏定义C语言中宏定义，又叫预处理器。它不是编译器的组成部分，但却是编译过程中一个单独的步骤。简言之，C预处理器只不过是一个文本替换工具而已，它们会指示编译器在实际编译之前完成所需的预处理。指令描述#define定义宏#include包含一个源代码文件#undef取消已定义的宏#ifdef如果宏已经定义，则返回真#ifndef如果宏没有定义，则返回真#if如果给定条件为真，则编译下面代码#else#
  • c语言宏不能传递参数,C语言 如何在宏定义中使用可变参数 左右不对称定律 c语言宏不能传递参数
    有一个记录日志的函数,想用宏定义进行包装，简化调用方法，但是xlc报如下的错误：void_log(constintlevel,char*file,intline,constchar*fmt,...){va_listap;intcount;time_tt;structtm*st;charstr_time[255];memset(str_time,0x00,sizeof(str_time));time
  • c语言中宏的用法汇总 Alfred.HOO Cc语言
    1.用作符号常量/明示常量时#define预处理指令和其他预处理指令一样，以#号作为一行的开始。指令可以出现在源文件的任何地方，其定义从出现的地方到该文件的末尾有效。预处理器指令从#开始，到后面的第一个换行符为止。宏的名字中不允许有空格，而且必须遵循c变量的命名规则：只能使用字母/数字/下划线，而且首字符不能是数字。注意，宏定义还可以包含其他宏(一些编译器不支持这种嵌套功能)。例如:#define
  • 《熬夜整理》保姆级系列教程-玩转Wireshark抓包神器教程(6)-Wireshark抓包界面详解 北京-宏哥
    1.简介在此之前，宏哥已经介绍和讲解过Wireshark的启动界面。但是很多初学者还会碰到一个难题，就是感觉wireshark抓包界面上也是同样的问题很多东西不懂怎么看。其实还是挺明了的宏哥今天就单独写一篇对其抓包界面进行详细地介绍和讲解一下。2.Wireshak抓包界面概览通过上一篇我们知道
  • excel文件扩展名xlsm与xlsx的区别 s甜甜的学习之旅 JavaSEexcel
    Excel文件有多种扩展名，每种扩展名代表不同类型的文件格式。xlsx和xlsm是两种常见的Excel文件扩展名，它们的主要区别在于是否支持宏（macros）。.xlsx文件不包含宏：.xlsx文件是Excel的标准工作簿文件格式，从Excel2007开始使用。这种格式使用OfficeOpenXML格式，是一个压缩过的XML文件，可以存储各种类型的数据，包括文本、数字和公式等。安全性更高：由于不包
  • XWiki中添加 html 二次编辑失效 草明 其他xwikimarkdown_blank
    如果直接在XWiki中添加html,例如修改颜色,新窗口打开主页面等功能,首次保存是生效的.如果再次编辑,则失效,原因是被转换成了Markdown的代码,而Markdown不支持.解决这个问题可以使用HTML宏.在XWiki中使用Markdown1.2语法时，默认Markdown的链接文本语法不支持在新页面中打开链接，且XWiki可能会处理或转换HTML标记。因此，建议使用HTML宏来确保targ
  • 2018-07-15 默言_5020
    守护生命文/范国宏古城公园，气势宏弘，富祚卧牛，锣鼓华章，傍侧有一处是爱心天使之家。当你进入里边，先进设备，优雅人性化的陈设，候诊听问，科学的规划，导入指示性的绿贴，目不暇接。初入者，就像进入了迷宫，东南西北不知在哪家。只要你进去，就像进了健康的八卦方阵，精神焕发。因为，这是天使的家，有魔幻般的艺术，高超的技艺，让你在有生之年投胎重生。新生点燃了你对家庭亲人的渴望，对生命生活的眷恋，对大千自然的向
  • 末代皇帝溥仪的书法如何？他的楷书造诣很高，大部分书法家达不到 鸿鹄迎罡
    文·段宏刚爱新觉罗·溥仪（1906年——1967年）是大清王朝的末代皇帝，由于身份特殊，从衣食住用行，再到接受教育，都会享受到许多优质资源。在过去，给皇帝传授文化知识的老师，有专用称谓，叫作“帝师”或“国师”，他们都是博古通今、德高望重的知识分子。溥仪有一名老师叫陆润庠（1841年——1915年），是清朝末年的东阁大学士，延续了古代文人官员的优良传统，文化底蕴相当深厚，能作诗，能画画，能写书法。在
  • 向泽宏|Day 34感恩日记 藏龙卧虎88888
    1、感恩在新的打卡群里早早就把感恩日记发在群里的身在国外心在国内的有灿烂阳光的笑容，为人和善有爱国情怀的刘康同学和有担当年轻帅气爱学习有爱心的石红同学还有学习认真非常自律的身在长沙的杨竟同学方便我们聆听，感恩冥想是精神食粮也是学习改变思维的方法！它武装了我们的头脑丰富了我们的生活，让我们的思想不再单纯，有颗感恩之心我们就会满怀天下，2.感恩今天是在新的一打卡学习群，经过前面的33天的打卡学习，收获
  • 回礼（小小说—原创） 柏杨村
    厂长刘德正昨天打发（嫁）女儿，婚礼在最高规格的西伯利亚大酒店举行。图片发自App厂里每个人都封了红包，中层2400，一般工人1200。作为保安的李宏才自然少不了要掏1200。因为这事，两口子前几天一直感到心痛。每月工资只有1800，这个月的工资几乎全泡汤了。平常家里得病的老母亲自己都不舍得拿钱给她花，两个年幼的孙子每天“爷爷、爷爷”的叫得他暖心，也很少给他们买零食，给个一元两元的。妻子每天拧着口袋
  • python拆分EXCEL文件 金哥的小超人 pythonexcel开发语言
    由于工作原因，经常上传一些不超过5000的数据，EXCEL当中数据量太大，如果不会写宏或者office不精通的话可能处理起来有些费尽，所以写了这段代码，用来分割EXCEL，好用实惠。#-*-coding:utf-8-*-"""CreatedonMonDec1117:06:222023@author:86188"""importpandasaspd#读取需要拆分的表格df=pd.read_excel
  • #include ＜netinet/in.h＞ 姜太公钓鲸233 c++socket
    #include，这是一个标准的网络编程头文件，用于定义IP地址、协议以及与网络接口相关的数据结构和常量。它主要用于在基于IPv4和IPv6的网络编程中。#include的作用头文件包含了处理网络地址的定义和一些网络协议的相关常量，用于支持基于IP（特别是IPv4和IPv6）的网络编程。它提供了一些关键的数据结构和宏，如：常见的结构和宏：structsockaddr_in：用于表示IPv4地址的结
  • Rust学习笔记（中） Fishermen_sail Rustrust
    前言笔记的内容主要参考与《Rust程序设计语言》，一些也参考了《通过例子学Rust》和《Rust语言圣经》。Rust学习笔记分为上中下，其它两个地址在Rust学习笔记（上）和Rust学习笔记（下）。错误处理panic!与不可恢复的错误当执行这个宏时，程序会打印出一个错误信息，展开并清理栈数据（也可以不清理数据就退出程序），然后接着退出。panic!和和其他语言不一样的地方，像下面的代码，这种情况下
  • 亲子日记第五百二十八篇 执勤 刘芮希爸爸
    2020年8月16日星期天晴今天早上起床后我们一起去了锦华市场，吃了你喜欢吃的拉面。因为创城检查，下午我要去路上执勤，英语课是妈妈送的你。你们下课了去了西城万达，宏岩姨请你们吃的半天妖烤鱼，还买了一个拍的球回来，你可喜欢玩了。
  • 以人力资源管理理论为切入点分析杨甦宏三分法 汉塞哥
    1.大学课堂存在问题大学课程是我们本科专业人才培养的基础，每一个优秀大学在其发展的征途中无不留下独特的追求卓越的课程哲学脚印。大学的核心内容就是大学课堂，然而，细致考查当下的国内大学课程，我们却不得不经常面对我国大学课程建设落后的尴尬。比如，一段时间以来不少高校开设的通识课程和专业课程却屡屡沦落为“水课”，有关单位在调查中发现大约有80%同学上课时光是在手机和睡梦中渡过来。这种常态也不断地刺激我们
  • 比特鹏哥网课笔记(结构体，枚举，联合体，通讯录项目） YummyJacky htmlhtml5
    1.结构体内存对齐（1）在设计结构体时，既要满足对齐，又要节省空间（让占用空间小的成员尽量集中在一起）structs1{charc1;charc2;inti;//占用8个字节structs2{charc1;inti;charc2;//占用12个字节（2）修改默认对齐数#pragmapack(4)//设置为4#pragmapack()//取消设置的默认对齐数（3）写一个宏，计算结构体中某变量相对于首
  • 第三篇：errno.h快速入门 和-尚 C标准库快速入门多线程fileconstantsfpmakefilefunction
    简介：头文件errno.h定义了一个全局的宏errno，它被展开为一个int类型的“左值”，这意味着宏errno不一定是个对象的标识符，也可以展开为一个由函数返回的可以修改的“左值”，比如int*errno()，这个后面会讲，你可以暂且把它理解为一个全局的int型变量(虽然这样理解是错的，不过方便理解)。简单来说，errno.h只是为了提供了一种错误报告机制。比如，一个函数调用fopen()发生了
  • C标准库之三：errno.h linux小牛 c语言errno错误代码标准库
    一：概述errno.h是C标准库中的一个检查错误的头文件，以我个人的理解，它的内部一共定义了3个宏，分别是EDOM,ERANGE,errno.其中errno相当于一个全局变量，它可以被赋值，而C库中的每个模块都会包含这个errno.h头文件，那么errno这个可以被赋值的宏（不知道这样理解对不对，看了C标准库才做的理解），就相当于整个C标准库的全局变量，如果在使用某个模块的函数过程中发生了错误，这
  • C语言从头学58——学习头文件math.h（一） LaoWaiHang C语言从头学c语言
    math.h头文件提供了很多数学计算方面的函数。一、使用数学函数前需要了解的两个类型、两个宏1、float_t：当前系统能够有效执行float运算的类型，宽度不少于float。2、double_t：当前系统能够有效执行double运算的类型，宽度不少于double。（使用系统的float_t、double_t的宽度见例子）3、INFINITY：该宏表示正无穷(表示计算出来的结果太大无法显示)4、N
  • java Illegal overloaded getter method with ambiguous type for propert的解决 zwllxs javajdk
    好久不来iteye,今天又来看看，哈哈,今天碰到在编码时，反射中会抛出 Illegal overloaded getter method with ambiguous type for propert这么个东东，从字面意思看，是反射在获取getter时迷惑了，然后回想起java在boolean值在生成getter时，分别有is和getter，也许我们的反射对象中就有is开头的方法迷惑了jdk，
  • IT人应当知道的10个行业小内幕 beijingjava 工作互联网
    10. 虽然IT业的薪酬比其他很多行业要好，但有公司因此视你为其“佣人”。 　　尽管IT人士的薪水没有互联网泡沫之前要好，但和其他行业人士比较，IT人的薪资还算好点。在接下的几十年中，科技在商业和社会发展中所占分量会一直增加，所以我们完全有理由相信，IT专业人才的需求量也不会减少。 　　然而，正因为IT人士的薪水普遍较高，所以有些公司认为给了你这么多钱，就把你看成是公司的“佣人”，拥有你的支配
  • java 实现自定义链表 CrazyMizzz java数据结构
    1.链表结构   链表是链式的结构 2.链表的组成    链表是由头节点，中间节点和尾节点组成    节点是由两个部分组成：       1.数据域       2.引用域 3.链表的实现 &nbs
  • web项目发布到服务器后图片过一会儿消失 麦田的设计者 struts2上传图片永久保存
      作为一名学习了android和j2ee的程序员，我们必须要意识到，客服端和服务器端的交互是很有必要的，比如你用eclipse写了一个web工程，并且发布到了服务器（tomcat）上，这时你在webapps目录下看到了你发布的web工程，你可以打开电脑的浏览器输入http://localhost:8080/工程/路径访问里面的资源。但是，有时你会突然的发现之前用struts2上传的图片
  • CodeIgniter框架Cart类 name 不能设置中文的解决方法 IT独行者 CodeIgniterCart框架　
    今天试用了一下CodeIgniter的Cart类时遇到了个小问题，发现当name的值为中文时，就写入不了session。在这里特别提醒一下。 在CI手册里也有说明，如下： $data = array( 'id' => 'sku_123ABC', 'qty' => 1, '
  • linux回收站 _wy_ linux回收站
    今天一不小心在ubuntu下把一个文件移动到了回收站，我并不想删，手误了。我急忙到Nautilus下的回收站中准备恢复它，但是里面居然什么都没有。     后来我发现这是由于我删文件的地方不在HOME所在的分区，而是在另一个独立的Linux分区下，这是我专门用于开发的分区。而我删除的东东在分区根目录下的.Trash-1000/file目录下，相关的删除信息（删除时间和文件所在
  • jquery回到页面顶端 知了ing htmljquerycss
    html代码： <h1 id="anchor">页面标题</h1> <div id="container">页面内容</div> <p><a href="#anchor" class="topLink">回到顶端</a><
  • B树、B-树、B+树、B*树 矮蛋蛋 B树
    原文地址： http://www.cnblogs.com/oldhorse/archive/2009/11/16/1604009.html B树        即二叉搜索树：        1.所有非叶子结点至多拥有两个儿子（Left和Right）； &nb
  • 数据库连接池 alafqq 数据库连接池
    http://www.cnblogs.com/xdp-gacl/p/4002804.html @Anthor:孤傲苍狼 数据库连接池 用MySQLv5版本的数据库驱动没有问题，使用MySQLv6和Oracle的数据库驱动时候报如下错误： java.lang.ClassCastException: $Proxy0 cannot be cast to java.sql.Connec
  • java泛型 百合不是茶 java泛型
    泛型 在Java SE 1.5之前，没有泛型的情况的下，通过对类型Object的引用来实现参数的“任意化”，任意化的缺点就是要实行强制转换，这种强制转换可能会带来不安全的隐患   泛型的特点：消除强制转换 确保类型安全 向后兼容   简单泛型的定义：      泛型：就是在类中将其模糊化，在创建对象的时候再具体定义 class fan
  • javascript闭包[两个小测试例子] bijian1013 JavaScriptJavaScript
    一.程序一 <script> var name = "The Window"; var Object_a = { 　　name : "My Object", 　　getNameFunc : function(){ var that = this; 　　　　return function(){ 　　　　
  • 探索JUnit4扩展：假设机制（Assumption） bijian1013 javaAssumptionJUnit单元测试
    一.假设机制（Assumption）概述        理想情况下，写测试用例的开发人员可以明确的知道所有导致他们所写的测试用例不通过的地方，但是有的时候，这些导致测试用例不通过的地方并不是很容易的被发现，可能隐藏得很深，从而导致开发人员在写测试用例时很难预测到这些因素，而且往往这些因素并不是开发人员当初设计测试用例时真正目的，
  • 【Gson四】范型POJO的反序列化 bit1129 POJO
    在下面这个例子中，POJO(Data类)是一个范型类，在Tests中，指定范型类为PieceData，POJO初始化完成后，通过 String str = new Gson().toJson(data); 得到范型化的POJO序列化得到的JSON串，然后将这个JSON串反序列化为POJO   import com.google.gson.Gson; import java.
  • 【Spark八十五】Spark Streaming分析结果落地到MySQL bit1129 Stream
    几点总结： 1. DStream.foreachRDD是一个Output Operation，类似于RDD的action，会触发Job的提交。DStream.foreachRDD是数据落地很常用的方法 2. 获取MySQL Connection的操作应该放在foreachRDD的参数（是一个RDD[T]=>Unit的函数类型)，这样，当foreachRDD方法在每个Worker上执行时，
  • NGINX + LUA实现复杂的控制 ronin47 nginx lua
    安装lua_nginx_module 模块 lua_nginx_module 可以一步步的安装，也可以直接用淘宝的OpenResty Centos和debian的安装就简单了。。 这里说下freebsd的安装： fetch http://www.lua.org/ftp/lua-5.1.4.tar.gz tar zxvf lua-5.1.4.tar.gz cd lua-5.1.4 ma
  • java-递归判断数组是否升序 bylijinnan java
    public class IsAccendListRecursive { /*递归判断数组是否升序 * if a Integer array is ascending,return true * use recursion */ public static void main(String[] args){ IsAccendListRecursiv
  • Netty源码学习-DefaultChannelPipeline2 bylijinnan javanetty
    Netty3的API http://docs.jboss.org/netty/3.2/api/org/jboss/netty/channel/ChannelPipeline.html 里面提到ChannelPipeline的一个“pitfall”： 如果ChannelPipeline只有一个handler（假设为handlerA）且希望用另一handler（假设为handlerB） 来
  • Java工具之JPS chinrui java
    JPS使用     熟悉Linux的朋友们都知道，Linux下有一个常用的命令叫做ps（Process Status)，是用来查看Linux环境下进程信息的。同样的，在Java Virtual Machine里面也提供了类似的工具供广大Java开发人员使用，它就是jps（Java Process Status)，它可以用来
  • window.print分页打印 ctrain window
    function init() { var tt = document.getElementById("tt"); var childNodes = tt.childNodes[0].childNodes; var level = 0; for (var i = 0; i < childNodes.length; i++) {
  • 安装hadoop时 执行jps命令Error occurred during initialization of VM daizj jdkhadoopjps
    在安装hadoop时，执行JPS出现下面错误   [slave16][email protected]:/tmp/hsperfdata_hdfs# jps Error occurred during initialization of VM java.lang.Error: Properties init: Could not determine current working
  • PHP开发大型项目的一点经验 dcj3sjt126com PHP重构
    一、变量 最好是把所有的变量存储在一个数组中，这样在程序的开发中可以带来很多的方便，特别是当程序很大的时候。变量的命名就当适合自己的习惯，不管是用拼音还是英语，至少应当有一定的意义，以便适合记忆。变量的命名尽量规范化，不要与PHP中的关键字相冲突。 二、函数 PHP自带了很多函数，这给我们程序的编写带来了很多的方便。当然，在大型程序中我们往往自己要定义许多个函数，几十
  • android笔记之--向网络发送GET/POST请求参数 dcj3sjt126com android
    使用GET方法发送请求 private static boolean sendGETRequest (String path, Map<String, String> params) throws Exception{ //发送地http://192.168.100.91:8080/videoServi
  • linux复习笔记 之bash shell (3) 通配符 eksliang linux 通配符linux通配符
    转载请出自出处： http://eksliang.iteye.com/blog/2104387 在bash的操作环境中有一个非常有用的功能，那就是通配符。 下面列出一些常用的通配符，如下表所示 符号 意义 * 万用字符，代表0个到无穷个任意字符 ? 万用字符，代表一定有一个任意字符 [] 代表一定有一个在中括号内的字符。例如：[abcd]代表一定有一个字符，可能是a、b、c
  • Android关于短信加密 gqdy365 android
    关于Android短信加密功能，我初步了解的如下（只在Android应用层试验）：     1、因为Android有短信收发接口，可以调用接口完成短信收发；         发送过程：APP（基于短信应用修改）接受用户输入号码、内容——>APP对短信内容加密——>调用短信发送方法Sm
  • asp.net在网站根目录下创建文件夹 hvt .netC#hovertreeasp.netWeb Forms
    假设要在asp.net网站的根目录下建立文件夹hovertree,C#代码如下： string m_keleyiFolderName = Server.MapPath("/hovertree"); if (Directory.Exists(m_keleyiFolderName)) { //文件夹已经存在 return; } else { try { D
  • 一个合格的程序员应该读过哪些书 justjavac 程序员书籍
    编者按：2008年8月4日，StackOverflow 网友 Bert F 发帖提问：哪本最具影响力的书，是每个程序员都应该读的？ “如果能时光倒流，回到过去，作为一个开发人员，你可以告诉自己在职业生涯初期应该读一本， 你会选择哪本书呢？我希望这个书单列表内容丰富，可以涵盖很多东西。” 很多程序员响应，他们在推荐时也写下自己的评语。 以前就有国内网友介绍这个程序员书单，不过都是推荐数
  • 单实例实践 跑龙套_az 单例
       1、内部类 public class Singleton { private static class SingletonHolder { public static Singleton singleton = new Singleton(); } public Singleton getRes
  • PO VO BEAN 理解 q137681467 VODTOpo
    PO：      全称是 persistant object持久对象 最形象的理解就是一个PO就是数据库中的一条记录。 好处是可以把一条记录作为一个对象处理，可以方便的转为其它对象。     BO：     全称是 business object:业务对象 主要作用是把业务逻辑封装为一个对象。这个对
  • 战胜惰性，暗自努力 金笛子 努力
    偶然看到一句很贴近生活的话：“别人都在你看不到的地方暗自努力，在你看得到的地方，他们也和你一样显得吊儿郎当，和你一样会抱怨，而只有你自己相信这些都是真的，最后也只有你一人继续不思进取。”很多句子总在不经意中就会戳中一部分人的软肋，我想我们每个人的周围总是有那么些表现得“吊儿郎当”的存在，是否你就真的相信他们如此不思进取，而开始放松了对自己的要求随波逐流呢？ 我有个朋友是搞技术的，平时嘻嘻哈哈，以
  • NDK/JNI二维数组多维数组传递 wenzongliang 二维数组jniNDK
    多维数组和对象数组一样处理，例如二维数组里的每个元素还是一个数组 用jArray表示，直到数组变为一维的，且里面元素为基本类型，去获得一维数组指针。给大家提供个例子。已经测试通过。 Java_cn_wzl_FiveChessView_checkWin( JNIEnv* env,jobject thiz,jobjectArray qizidata) { jint i,j; int s
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他