'========================================================
'利用access textbox（64位） 分散对齐，空值每行数量，并处理文本中部分符号及尾部对齐。需要自己确定文本长度。
Function GetCharLen(pChar() As Byte) As Long
    GetCharLen = 1 - (pChar(1) <> 0)

End Function

Function AlignBothEnds(text_name As Variant, number As Integer)
    Dim myStr As String
    Dim Length As Long
    Dim arrStr() As String
    Dim tmpLen As Long
    Dim tmpBit As Long
    Dim Idx As Long
    Dim i As Long
    Dim Fcharacters As Variant
    Dim TempByte() As Byte
    Dim Nullspaces As Integer
    Dim Numvalues As Variant
On Error GoTo dygs_Err
    Fcharacters = ",.:;?:，。；、！：？"  '开头不可以出现的符号********
    myStr = text_name
    Length = Len(myStr)
    ReDim arrStr(Length * 2)
    For i = 1 To Length
        tmpBit = i
        tmpLen = 0
        Do
            tmpLen = tmpLen + GetCharLen(Mid(myStr, i, 1))
            i = i + 1
        Loop Until tmpLen >= number or i > Length
            If tmpLen > number Then i = i - 1
                If InStr(Fcharacters, Right(Mid(myStr, tmpBit, i - tmpBit + 1), 1)) <> 0 And _
                InStr(Fcharacters, Left(Mid(myStr, tmpBit, i - tmpBit), 1)) <> 0 Then
                    arrStr(Idx) = Mid(myStr, tmpBit + 1, i - tmpBit + 1)
                Else
                    If InStr(Fcharacters, Right(Mid(myStr, tmpBit, i - tmpBit + 1), 1)) <> 0 Then
                        arrStr(Idx) = Mid(myStr, tmpBit, i - tmpBit + 1)
                    Else
                        If InStr(Fcharacters, Left(Mid(myStr, tmpBit, i - tmpBit), 1)) <> 0 Then
                            arrStr(Idx) = Mid(myStr, tmpBit + 1, i - tmpBit)
                        Else
                            arrStr(Idx) = Mid(myStr, tmpBit, i - tmpBit)
                        End If
                    End If
                End If
            Idx = Idx + 1
            i = i - 1
    Next i

    ReDim Preserve arrStr(Idx)

'==========================================================
'尾端数据对齐，判断数组最后一行字符串数量并添加空值。
    TempByte = Mid(myStr, tmpBit, i)
    If (UBound(TempByte) + 1) > number Then
        Nullspaces = number - (UBound(TempByte) + 1) Mod number
    Else
        Nullspaces = number - (UBound(TempByte) + 1)
    End If
 
    For Z = 1 To Nullspaces
        Numvalues = Numvalues & Chr(2)
    Next
    AlignBothEnds = Left(Join(arrStr, vbCrLf), Len(Join(arrStr, vbCrLf)) - 1) & Numvalues
dygs_Exit:
    Exit Function
dygs_Err:
    MsgBox Error$
    Resume dygs_Exit

End Function

Private Sub Command1_Click()
    Text2 = AlignBothEnds(Text1, 63)
End Sub

附   件:

点击下载此附件