{"id":785,"date":"2024-06-19T09:29:00","date_gmt":"2024-06-19T01:29:00","guid":{"rendered":"http:\/\/www.wyrcad.com\/?p=785"},"modified":"2024-07-25T15:41:05","modified_gmt":"2024-07-25T07:41:05","slug":"%e7%94%9f%e6%88%90%e9%9a%8f%e6%9c%ba%e5%90%8d%e7%a7%b0","status":"publish","type":"post","link":"https:\/\/www.wyrcad.com\/?p=785","title":{"rendered":"\u5b57\u7b26\u4e32\u51fd\u6570\u7cfb\u5217\u4e4b\u4e00"},"content":{"rendered":"\n

Public Function SelName(ByVal iNumber As Integer) As String ‘\u751f\u6210 iNumber \u4f4d\u6570\u7684\u5b57\u7b26\u4e32
Dim I As Integer, J As Integer
Dim ReservedArray As Variant
ReservedArray = Array(“MANUALLY”, “SUPPORT”, “OHTLLINE”, “ACAD”, “WCAD”)
ERR_AVOID:
SelName = “”
Randomize
For I = 1 To iNumber
SelName = SelName & Chr((64 + Int((26 * Rnd) + 1)))
Next I
If IsInArray<\/a>(SelName, ReservedArray) Then GoTo ERR_AVOID
End Function<\/p>\n\n\n\n

Public Function CountStr(ByVal bOverlapable As Boolean, ByVal sMom As String, ByVal sSon As String) As Integer \u2018sSon \u5728 sMom \u4e2d\u51fa\u73b0\u7684\u6b21\u6570
CountStr = 0
Do While InStr(1, sMom, sSon, vbTextCompare) > 0
CountStr = CountStr + 1
If bOverlapable Then \u2018\u5141\u8bb8\u91cd\u590d\u8ba1\u6570,\u5982 nnn \u4e2d\u542b\u4e24\u4e2a nn
sMom = Right(sMom, Len(sMom) \u2013 InStr(1, sMom, sSon, vbTextCompare))
Else \u2018\u4e0d\u5141\u8bb8\u91cd\u590d\u8ba1\u6570,\u5982 nnn \u4e2d\u542b\u4e00\u4e2a nn
sMom = Right(sMom, Len(sMom) \u2013 InStr(1, sMom, sSon, vbTextCompare) \u2013 (Len(sSon) \u2013 1))
End If
Loop
End Function<\/p>\n\n\n\n

Public Function ExtractDivide(ByVal sLetter As String, ByVal sData As String, ByVal iOrder As Integer) As String \u2018\u8bfb\u51fa\u7531 sLetter \u5206\u5272\u7684\u7b2c IOrder \u8282\u5b50\u5b57\u7b26\u4e32
ExtractDivide = \u201c\u201d
If sData = \u201c\u201d Then Exit Function
If iOrder < 1 Then Exit Function If iOrder > CountStr(False, sData, sLetter) + 1 Then Exit Function
sData = Trim(sData)
Dim TempArray As Variant
TempArray = Split(sData, sLetter, -1, vbTextCompare)
ExtractDivide = TempArray(iOrder \u2013 1)
ExtractDivide = Trim(ExtractDivide)
End Function<\/p>\n\n\n\n

Public Function CutLeft(ByVal sOriginal As String, ByVal sCut As String) As String ‘\u53bb\u6389\u5de6\u4fa7\u5b57\u7b26 sCut \u4e00\u6b21(\u5982\u679c\u6709)
CutLeft = LTrim(sOriginal)
If InStr(1, sOriginal, sCut, vbTextCompare) = 1 Then CutLeft = Right(sOriginal, Len(sOriginal) – Len(sCut))
End Function<\/p>\n\n\n\n

Public Function CutRight(ByVal sOriginal As String, ByVal sCut As String) As String ‘\u53bb\u6389\u53f3\u4fa7\u5b57\u7b26 sCut \u4e00\u6b21(\u5982\u679c\u6709)
CutRight = RTrim(sOriginal)
If CutRight = “” Then Exit Function
If InStrRev(sOriginal, sCut, -1, vbTextCompare) = Len(sOriginal) – Len(sCut) + 1 Then CutRight = Left(sOriginal, Len(sOriginal) – Len(sCut))
End Function<\/p>\n\n\n\n

Public Function CutTerminal(ByVal sOriginal As String, ByVal sCut As String) As String ‘\u53bb\u6389\u4e24\u7aef\u5b57\u7b26 sCut \u4e00\u6b21(\u5982\u679c\u6709)
CutTerminal = Trim(sOriginal)
CutTerminal = CutLeft(CutTerminal, sCut)
CutTerminal = CutRight(CutTerminal, sCut)
End Function<\/p>\n\n\n\n

Public Function PurgeLeft(ByVal sOriginal As String, ByVal sPurge As String) As String ‘\u53bb\u6389\u5de6\u4fa7\u5b57\u7b26 sPurge(\u6240\u6709)
sOriginal = LTrim(sOriginal)
If sPurge = vbCr Or sPurge = vbLf Or sPurge = vbCrLf Then
Do While Asc(Left(sOriginal, Len(sPurge))) = Asc(sPurge)
sOriginal = Right(sOriginal, Len(sOriginal) – Len(sPurge))
sOriginal = LTrim(sOriginal)
Loop
Else
Do While InStr(1, sOriginal, sPurge, vbTextCompare) = 1 And Len(sOriginal) – Len(sPurge) > -1
sOriginal = Right(sOriginal, Len(sOriginal) – Len(sPurge))
sOriginal = LTrim(sOriginal)
Loop
End If
PurgeLeft = sOriginal
End Function<\/p>\n\n\n\n

Public Function PurgeRight(ByVal sOriginal As String, ByVal sPurge As String) As String ‘\u53bb\u6389\u53f3\u4fa7\u5b57\u7b26 sPurge(\u6240\u6709)
sOriginal = RTrim(sOriginal)
If sPurge = vbCr Or sPurge = vbLf Or sPurge = vbCrLf Then
Do While Asc(Right(sOriginal, Len(sPurge))) = Asc(sPurge)
sOriginal = Left(sOriginal, Len(sOriginal) – Len(sPurge))
sOriginal = RTrim(sOriginal)
Loop
Else
Do While InStrRev(sOriginal, sPurge, -1, vbTextCompare) = Len(sOriginal) – Len(sPurge) + 1 And Len(sOriginal) – Len(sPurge) > -1
sOriginal = Left(sOriginal, Len(sOriginal) – Len(sPurge))
sOriginal = RTrim(sOriginal)
Loop
End If
PurgeRight = sOriginal
End Function<\/p>\n\n\n\n

Public Function PurgeTerminal(ByVal sOriginal As String, ByVal sPurge As String) As String ‘\u53bb\u6389\u4e24\u7aef\u5b57\u7b26 sPurge(\u6240\u6709)
sOriginal = PurgeLeft(sOriginal, sPurge)
sOriginal = PurgeRight(sOriginal, sPurge)
PurgeTerminal = sOriginal
End Function<\/p>\n\n\n\n

Public Function GetAPIString(ByVal sAPI As String) As String ‘\u5b57\u7b26\u5305\u88c5\uff0c\u7528\u4e8e\u5904\u7406 API \u8fd4\u56de\u5b57\u7b26
On Error Resume Next
Dim iZeroPos As Integer
iZeroPos = InStr(sAPI, Chr$(0))
If iZeroPos > 0 Then
GetAPIString = Left$(sAPI, iZeroPos – 1)
Else
GetAPIString = sAPI
End If
On Error GoTo 0
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"

Public Function SelName(ByVal iNumber As Integer) As St … \u7ee7\u7eed\u9605\u8bfb\u201c\u5b57\u7b26\u4e32\u51fd\u6570\u7cfb\u5217\u4e4b\u4e00\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[24,17],"class_list":["post-785","post","type-post","status-publish","format-standard","hentry","category-bianchengyuandi","tag-vb","tag-biancheng"],"_links":{"self":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/785","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=785"}],"version-history":[{"count":12,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/785\/revisions"}],"predecessor-version":[{"id":1423,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/785\/revisions\/1423"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=785"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=785"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=785"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}