作者文章的编辑器使用说明

首先致敬各位创作者，辛苦了！有了你们的贡献，才让程序园充满生机！

这篇文章简单讲述了一些编辑器的使用方法，仅供参考。

1，工具栏

编辑器顶部有个工具条，可以对文字进行一些修饰

2，区块模板

在工具栏的左边第一个按钮可以打开区块模板，插入一些高级板块

3，代码块

首先点开区块列表，先择 IO高亮代码，就可以看到编辑器出现了一个代码框框，然后粘贴代码进去，

然后在右边的区块编辑里面选择正确的代码语言，发布之后才能正常渲染语法。

发布文章之后，就可以看到下面的代码效果了，语法高亮，行号显示，

在代码窗口右上角可以点击复制按钮，把代码复制到剪贴板使用。

Attribute VB_Name = "mStr"
Option Explicit

Public Function GetNewIds(Optional ByVal Bath As Long)
    GetNewIds = "开发中..."
End Function

Public Function GetFirstChar(Txt As String, Optional length As Long = 1) As String
    Dim Pos As Long, CharStr As String, CharDec As Long
    Do Until (CharDec >= 33 And CharDec <= 126)
        Pos = Pos + 1
        CharStr = Mid$(Txt, Pos, 1)
        CharDec = Asc(CharStr)
    Loop
    If length = 1 Then
        GetFirstChar = CharStr
    Else
        GetFirstChar = Mid$(Txt, Pos, length)
    End If
End Function

Public Function GetLastChar(Txt As String, Optional length As Long = 1) As String
    Dim Pos As Long, CharStr As String, CharDec As Long
    Do Until (CharDec >= 33 And CharDec <= 126)
        Pos = Pos + 1
        CharStr = Mid$(Txt, Pos, 1)
        CharDec = Asc(CharStr)
    Loop
    If length = 1 Then
        GetLastChar = CharStr
    Else
        GetLastChar = Mid$(Txt, Pos, length)
    End If
End Function

Public Function GetRandStr(Optional ByVal Lens As Integer = 32, Optional Zuhe As String = "1aA") As String
    Rem 先顶用下，后期优化
    '取的随机字符串，组合参数支持  1aA@
    Rem 有时间可以开1000个线程并行计算，看看跑多长时间会出现重复，
    Rem 以 8 位 1aA 参数测试，32位字符重复率视为零
    '制作：2016-01-21   邓伟
    Dim Chars As String, i As Long, Max As Long, C As String, Pos As Long
    Dim Char As String
    Dim C1 As String: C1 = "0123456789"
    Dim xA As String: xA = "abcdefghijklmnopqrstuvwxyz"
    Dim dA As String: dA = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim CO As String: CO = "!""#$%&'()*+,-./:;<=>?@[\]^_`{|}~"
    If Zuhe = "" Then
        Chars = C1 & xA & dA & CO
    Else
        If InStr(Zuhe, "1") > 0 Then Chars = Chars & C1
        If InStr(Zuhe, "a") > 0 Then Chars = Chars & xA
        If InStr(Zuhe, "A") > 0 Then Chars = Chars & dA
        If InStr(Zuhe, "@") > 0 Then Chars = Chars & CO
    End If
    If Lens < 1 Then Lens = 8
    Max = Len(Chars)
    For i = 1 To Lens
        Pos = mMath.GetRandRange(1, Max)
        C = Mid$(Chars, Pos, 1)
        Char = Char & C
        '        Debug.Print i, C, Max, Pos
    Next
    GetRandStr = Char
End Function

最后，有其他不明白的地方，请在评论区留言，我这里会更新简介。