ITeye BBCode編輯器快速排版技巧

原創 王_果 2020-02-24 12:28
每天和ITeye的編輯器打交道，發佈一篇文章時，爲了顯示規範些，需要花費一定的時間來排版。排版工作相當機械化，就考慮通過Word中的宏來實現，不在非重要的工作上浪費時間，就逐漸寫了一些。

這些宏用的是VB語法，沒什麼難度（多處用到了Word的查找替換功能），但聊勝於無，將這些分享出來，在發佈資訊或寫博客時可以用來快速排版。這些宏中，[b]大部分都是針對BBCode編輯器[/b]（在可視化編輯器中調版式沒有BBCode好用）。

[align=center][img]http://dl2.iteye.com/upload/attachment/0093/1246/34a79c6c-a0d9-38bb-9183-ac558df0f4a7.jpg[/img][/align]

[b]使用方法[/b]：這些都是針對Microsoft Word，在Word中，按【Alt+F11】打開VBA環境，選擇【插入】->【模塊】菜單，在編輯器中粘貼本文後面的代碼。

[b]運行方法[/b]：將光標定位在要使用的宏代碼中，單擊工具欄中的【運行】按鈕即可。

可以將這些宏命令加入到Word的工具欄，像上圖一樣，使用時直接點擊即可。也可將常用的一些命令設置個快捷鍵，這樣效率更高。

[align=center][img]http://dl2.iteye.com/upload/attachment/0093/1249/e986b431-8800-37ea-b017-c0bfc0827fdc.jpg[/img][/align]


 Sub 自動鏈接()

'識別鏈接，提取URL，在鏈接文本前後加上[URL]標記

For Each aHyperlink In ActiveDocument.Hyperlinks        
   If InStr(LCase(aHyperlink.Address), "http") <> 0 Then        
      aHyperlink.Range.Select

    With Selection
      .InsertBefore "[url=" & aHyperlink.Address & "]"
    End With

    With Selection
      .InsertAfter "[/url]"
    End With

    End If

Next aHyperlink

End Sub


Sub 清除格式()

   Selection.ClearFormatting

End Sub


Sub 添加行號()

'在選中的每個段落前加上1. 2. 3.……

Dim parag As Paragraph
Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range

  For Each parag In Selection.Paragraphs
  nLineNum = nLineNum + 1


If nLineNum > 0 Then
   selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & ".  ")

 End If


'個位數前自動添加0
' If nLineNum < 10 And nLineNum > 0 Then
'    selRge.Paragraphs(nLineNum).Range.InsertBefore ("0" & nLineNum & "   ")
'  Else
'    selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & "   ")
'  End If

 Next
End Sub


Sub 表格轉換()

'將表格轉換成bbcode表格格式

換表格
每段加豎線
首尾加table

End Sub


Sub 換表格()

' 將文本換爲表格

    Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
        NestedTables:=True
End Sub

Sub 首尾加table()

'選擇區域首位加上[ table]、[ /table]

With Selection
    .InsertParagraphBefore
End With

With Selection
    .InsertBefore "[ table]"
End With

With Selection
    .InsertAfter "[ /table]"
End With

End Sub


Sub 每段加豎線()

'選擇區域所有段落前加|

Dim parag As Paragraph
Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range

  For Each parag In Selection.Paragraphs


  nLineNum = nLineNum + 1


  If nLineNum > 0 Then


    selRge.Paragraphs(nLineNum).Range.InsertBefore ("|")

    Set myrange = selRge.Paragraphs(nLineNum).Range

    myrange.End = myrange.End - 1

    myrange.InsertAfter ("|")


  End If

 Next

End Sub


Sub 圖片居中()

' 在所有[img][/img]標記前後加上[align=center][/align]

    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[img]"
        .Replacement.Text = "[align=center][img]"
        .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.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[/img]"
        .Replacement.Text = "[/img][/align]"
        .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
End Sub

Sub 刪除空白行()

'刪除空行

    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 = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 段首加空格()

'在每段段首加上4個半角空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^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
End Sub


Sub 段首刪空格()

'刪除每段段首的空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^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
End Sub


Sub 刪圖()

'刪除Word文檔中的所有圖片

Dim pic As InlineShape 
 For Each pic In ActiveDocument.InlineShapes 
 If pic.Width <> 0 Then
pic.Select 
 Selection.Delete 
 End If
Next

End Sub


Sub 手動換行()

'將所有段落標記替換爲手動換行標記


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^l"
        .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
End Sub

Sub 自動換行()

'將所有手動換行標記替換爲段落標記

    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
End Sub

Sub 換HTML空格()

' 將所有HTML格式空格替換爲半角空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


End Sub


Sub 自動縮放圖()

'將Word文檔中的可見圖片調整爲統一大小

Dim myis As InlineShape

For Each myis In ActiveDocument.InlineShapes

  If myis.Width > CentimetersToPoints(2.5) Then


   If myis.Width < CentimetersToPoints(0.5) Then GoTo 10
   If myis.Height < CentimetersToPoints(0.5) Then GoTo 10

     myis.Reset

    ' myis.PictureFormat.ColorType = msoPictureGrayscale

     myis.LockAspectRatio = msoTrue


    myis.ScaleWidth = 70

    If myis.Width > CentimetersToPoints(5) Then myis.Width = CentimetersToPoints(9)

    myis.ScaleHeight = myis.ScaleWidth


  End If

10: Next myis
End Sub

Sub 圖居中()

'居中Word文檔中的所有可見圖片

Dim myis As InlineShape

For Each myis In ActiveDocument.InlineShapes

  If myis.Width > 0 Then

  myis.Select


  Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter


  End If

Next myis
End Sub


Sub 換全角空格()

' 將所有全角空格替換爲半角空格

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "　"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 換空格()

  換HTML空格
  換全角空格

End Sub


Sub 加粗()

'在選中的文字前後加上[b][/b]

With Selection
    .InsertBefore "[b]"
End With

With Selection
    .InsertAfter "[/b]"
End With


End Sub


Sub 加鏈接()



With Selection
    .InsertBefore "[url]"
End With

With Selection
    .InsertAfter "[/url]"
End With


End Sub

Sub 加鏈接2()


With Selection
    .InsertBefore "[url=]"
End With

With Selection
    .InsertAfter "[/url]"
End With


End Sub

Sub 列表標籤()

'選擇區域首位加上[list][/list]

With Selection
    .InsertParagraphBefore
End With

With Selection
    .InsertBefore "[list]"
End With

With Selection
    .InsertAfter "[/list]"
End With


End Sub

Sub 列表段號()

'選擇區域所有段落前加[*]

Dim parag As Paragraph
Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range

  For Each parag In Selection.Paragraphs
  nLineNum = nLineNum + 1

  If nLineNum > 0 Then
    selRge.Paragraphs(nLineNum).Range.InsertBefore ("[*]")
  End If

 Next

End Sub

Sub 加列表()

列表段號
列表標籤

End Sub


Sub 去底紋()


    Selection.WholeStory

    去段落底紋
    去文字底紋

End Sub
Sub 去文字底紋()


    With Selection.Font
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = wdColorAutomatic
        End With
        .Borders(1).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub

Sub 去段落底紋()


    With Selection.ParagraphFormat
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = wdColorAutomatic
        End With
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 1
            .DistanceFromRight = 4
            .Shadow = False
        End With
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub


Sub 標題樣式加粗()


'如果段落樣式爲指定樣式，則在首位加上[b][/b]

Dim cuti As Paragraph

  For Each cuti In ActiveDocument.Paragraphs

  If cuti.Style = ActiveDocument.Styles("標題 3") Then

  cuti.Range.Select

  With Selection
      .InsertBefore "[b]"
    End With

    With Selection
      .InsertAfter "[/b]"
    End With

  End If

 Next


End Sub

Sub 標題長度加粗()


' 要求用戶設置長度值

Dim Message, Title, Default, MyValue

Message = "請輸入限定的段落文本字/單詞數"

Title = "限定長度"

Default = "10"

MyValue = InputBox(Message, Title, Default)

' 如果段落文字長度小於設定值，則在首位加上[b][/b]

Dim cuti As Paragraph

  For Each cuti In ActiveDocument.Paragraphs


  If cuti.Range.Words.Count < MyValue And cuti.Range.Words.Count > 1 Then


'  Range.Characters.Count < 20 Then

  cuti.Range.Select

  With Selection
      .InsertBefore "[b]"
    End With

   Selection.EndKey Unit:=wdLine
   Selection.TypeText Text:="[/b]"
   Selection.MoveRight Unit:=wdCharacter, Count:=1


   ' With Selection
   '   .InsertAfter "[/b]"
  '  End With

  End If

 Next

End Sub

Sub 清除加粗()

' 清除所有的加粗標記[b][/b]

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[b]"
        .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
    With Selection.Find
        .Text = "[/b]"
        .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
End Sub

Sub 修復分段()
'
' 文中有不正確的分段標記，該宏可以修復此類問題
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "aaabbbccc"
        .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
    With Selection.Find
        .Text = ".aaabbbccc"
        .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
    With Selection.Find
        .Text = "aaabbbccc"
        .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
End Sub


Sub 刪空行()


Dim kong As Paragraph

  For Each kong In ActiveDocument.Paragraphs


  If kong.Range.Characters.Count = 1 Then


  kong.Range.Select

  Selection.Delete


  End If

 Next

段首刪空格


End Sub
Sub 檢查鏈接()
'
' 檢查“[url=”和“http://”中是否有空格，有則刪除
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[url= http://"
        .Replacement.Text = "[url=http://"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    With Selection.Find
        .Text = "[url= https://"
        .Replacement.Text = "[url=https://"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub


Sub 取消所有超鏈接()

'清除所有的超鏈接


Dim oField As Field

For Each oField In ActiveDocument.Fields
 If oField.Type = wdFieldHyperlink Then
   oField.Unlink
 End If

Next
   Set oField = Nothing
End Sub


Sub 選擇部分手動換行()

'將選擇部分的段落標記替換爲手動換行標記

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^l"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sub 週報鏈接()

'Markup語法（寫週報用）：識別鏈接，提取URL，加上#

For Each aHyperlink In ActiveDocument.Hyperlinks

   If InStr(LCase(aHyperlink.Address), "http") <> 0 Then

      aHyperlink.Range.Select

    With Selection
      .InsertBefore "#[" & aHyperlink.Address & " "
    End With

    With Selection
      .InsertAfter "]"
    End With

    End If

Next aHyperlink


End Sub


Sub 超級替換()

'把常見的確實可以自動替換的錯別字進行自動替換。
'第一個參數是錯別字，第二個參數是正確的字


替換常用錯別字 "惟一", "唯一"
替換常用錯別字 "帳號", "賬號"
替換常用錯別字 "圖象", "圖像"
替換常用錯別字 "登陸", "登錄"
替換常用錯別字 "其它", "其他"
替換常用錯別字 "按裝", "安裝"
替換常用錯別字 "按紐", "按鈕"
替換常用錯別字 "成份", "成分"
替換常用錯別字 "題綱", "提綱"
替換常用錯別字 "煤體", "媒體"
替換常用錯別字 "存貯", "存儲"
替換常用錯別字 "一楨", "一幀"
替換常用錯別字 "好象", "好像"
替換常用錯別字 "對像", "對象"


End Sub

Sub 替換常用錯別字(strWrong As String, strRight)

'此過程僅供程序調用，不要人手工使用
'
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = strWrong
        .Replacement.Text = strRight
        .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
End Sub


Sub 段間加空行()

'在段落間加上空行，[list]列表之間不加空行

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p^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 = "^p[*]"
        .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 = "[/list]^p^p"
        .Replacement.Text = "[/list]^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


End Sub

Sub 字體紅色()

With Selection
    .InsertBefore "[color=red]"
End With

With Selection
    .InsertAfter "[/color]"
End With


End Sub
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

芯片產業管理和營銷指北（3）—— 贏得客戶

注意：本文是依據 俞志宏 老師的 《我在硅谷管芯片：芯片產品線經理生存指南》 一書閱讀後歸納總結得到。可以試做此書的讀後感，對芯片產業感興趣的同僚強烈推薦此書 爲什麼要見客戶 和客戶面對面主要是獲取與客戶相關的各類信息，包含但不限於： 市

zer0black 2024-06-09 14:34:09

【stars-one】 星念輕小說下載器

原文: 【stars-one】星念輕小說下載器-Stars-One的雜貨小窩 一款將在線輕小說保存到本地的下載工具 軟件介紹 小說單卷下載 小說全卷下載(需VIP) 多線程解析和下載 下載導出爲epub文件 自動更新 軟件使用前需要進行

Stars-one 2024-06-09 14:22:28

shell編程相關的

  shell腳本獲取腳本所在目錄 執行腳本的父目錄不一定是當前的工作目錄。 url=$(dirname $(readlink -f $0))

馬昌偉 2024-06-09 14:16:47

kvm鏈接克隆虛擬機遷移到openstack機器的實驗

  總結 如果是完整克隆的那種虛擬機，是可以直接在openstack使用的，如果鏡像格式沒問題的話。   因爲kvm虛擬機大部分都是鏈接克隆出來的鏡像，不可用直接複製使用，所以需要創建新的鏡像文件   創建空盤：qemu-img creat

馬昌偉 2024-06-09 14:16:47

【Python】DQN處理CartPole-v1

DQN是強化學習中的一種方法，是對Q-Learning的擴展。 通過引入深度神經網絡、經驗回放和目標網絡等技術，使得Q-Learning算法能夠在高維、連續的狀態空間中應用，解決了傳統Q-Learning方法在這些場景下的侷限性。 Q-Le

Dsp Tian 2024-06-09 14:14:07

P1355 神祕大三角（凸包）

P1355 神祕大三角 - 洛谷 | 計算機科學教育新生態 (luogu.com.cn) 隊友推薦的，算是入門凸包，就是用叉積判斷一下點是否相對每條邊都在凸包的邊的左側。 1 #include <bits/stdc++.h> 2

SnowLove 2024-06-09 14:13:17

前端使用 Konva 實現可視化設計器（13）- 折線 - 最優路徑應用【思路篇】

這一章把直線連接改爲折線連接，沿用原來連接點的關係信息。關於折線的計算，使用的是開源的 AStar 算法進行路徑規劃，啓發方式爲 曼哈頓距離，且不允許對角線移動。 請大家動動小手，給我一個免費的 Star 吧~ 大家如果發現了 Bug，歡

xachary 2024-06-09 14:10:57

生產計劃範圍的擴展 - 工單的拆分與合併

背景 　　在過往與不少合作伙伴們，就生產計劃項目方案的討論中，經常提及這樣的一種情況： “我們在編制生產計劃時，有些數量較大的訂單，需要拆分成多個子訂單，這樣才能利用多個資源並行加工，以縮短生產週期，提高資源利用率” - 我們稱爲【工單拆分

kentzhang 2024-06-09 14:09:57

APS系統設計經驗分享(時間推導II - 2023.09)

　　在前一篇關於APS系統設計分享文章(《APS系統設計經驗分享(時間推導 - 2023.03)》)中，我們提到將會分享使用OptaPlanner作爲規劃引擎開發APS系統過程中，遇到的一些時間相關的設計建議與異常情況分析。後來一直忙於項目

kentzhang 2024-06-09 14:09:57

排程過程中任務鎖定的外延與內涵

在生產排程過程中，除了可以藉助強大的算法，與優質的規劃模型對待排任務進行排產優化外，還會遇到一些需要人爲鎖定部分任務的情況。無論是APS系統開發人員，還是排產作業人員，在常見的認識中，對於“鎖定”概念的理解，第一反應就是把任務固定到某個資源

kentzhang 2024-06-09 14:09:57

排程系統中關於任務優先級的需求延伸與設計構思

無論是面向銷售訂單的MPS，還是基於多工序制約關係的APS，還是具體車間生產中針對單一工序的任務作業調度優化，都存在基於被排程對象(例如銷售訂單、生產工單、工序任務)的優先級進行優化的需求場景。當我們僅在宏觀、較高層次的角度考慮，任務優先級

kentzhang 2024-06-09 14:09:57

從零手寫實現 nginx-11-文件處理邏輯與 range 範圍查詢合併

前言 大家好，我是老馬。很高興遇到你。 我們爲 java 開發者實現了 java 版本的 nginx https://github.com/houbb/nginx4j 如果你想知道 servlet 如何處理的，可以參考我的另一個項目：

葉止水 2024-06-09 14:02:36

nginx快速分析日誌並找出攻擊IP

第一步：分析NGINX日誌 分析日誌主要目的是尋找那些異常活躍的IP地址，通過以下命令可以快速找出。  cat access.log | awk '{print$1}' |sort|uniq -c|sort -rn|head -10 命

xiaobingch 2024-06-09 13:59:16

Vue CLI 4與項目構建實戰指南

title: Vue CLI 4與項目構建實戰指南 date: 2024/6/9 updated: 2024/6/9 excerpt: 這篇文章介紹瞭如何使用Vue CLI優化項目構建配置，提高開發效率，涉及配置管理、項目部署策略、插件系

Mifen 2024-06-09 13:40:15

Vue第三方庫與插件實戰手冊

title: Vue第三方庫與插件實戰手冊 date: 2024/6/8 updated: 2024/6/8 excerpt: 這篇文章介紹瞭如何在Vue框架中實現數據的高效驗證與處理，以及如何集成ECharts、D3.js、Chart.

Mifen 2024-06-09 13:40:15