如何在(記事本) AAA.TXT,裡座標排序 (Q4)由大排小 (Q2)由小排大(Q3)由大排小 (Q1)由小排大

Option Explicit

Private Sub Command1_Click()

Dim S As String
Dim Arr() As String
Dim i As Long, k As Long, XYInd As Integer
Dim B As Boolean
Dim CmpMethod1 As Integer, CmpMethod2 As Integer


'------------ Ini. Var. ------------

CmpMethod1 = IIf(Option1(0).Value = True, 1, 0) 'Sort By Y or not
CmpMethod2 = IIf(Check1.Value = 1, 2, 1) 'Increasing or not

'--------- Put Datas Into Array -----------
S = Trim(Text1.Text)

Do While Right(S, 2) = vbNewLine
  S = Left(S, Len(S) - 2)
Loop

Arr = Split(S, vbNewLine)

k = UBound(Arr)
ReDim Pos(k, 1) As Double

For i = 0 To k
  Pos(i, 0) = GetUserVal(Arr(i), 0) 'X
  Pos(i, 1) = GetUserVal(Arr(i), 1) 'Y
Next i

'-------- Sort ----------

'Bubble Sort

For XYInd = 0 To 1
    Do
        i = 0
        B = False
        Do
          If CmpPos(Pos, i, CmpMethod1, CmpMethod2, XYInd) Then
              ExcgPos Pos, i
              B = True
          End If
            i = i + 1
        Loop While i < k
    Loop While B
Next XYInd

'---------- Show Result ---------

S = ""
For i = 0 To k
  S = S & "(" & Pos(i, 0) & ", " & Pos(i, 1) & ")" & vbNewLine
Next i
  Text2.Text = S

End Sub

Public Function GetUserVal(ByVal S As String, ByVal Typ As Byte) As Double

Dim m As Long, m2 As Long

  'Kill Str T...
  m = InStrRev(UCase(S), "T")
  If m <> 0 Then S = Left(S, m - 1)

'''

m = InStr(1, UCase(S), "X")
m2 = InStr(m + 1, UCase(S), "Y")

GetUserVal = IIf(Typ = 0, Mid(S, m + 1, m2 - m - 1), Right(S, Len(S) - m2))

End Function

Public Sub ExcgPos(ByRef P() As Double, ByVal i As Long) 'Exchange Two Pos.
  
  Dim tempk As Double, tempk2 As Double
  
  tempk = P(i, 0): tempk2 = P(i, 1)
  P(i, 0) = P(i + 1, 0): P(i, 1) = P(i + 1, 1)
  P(i + 1, 0) = tempk: P(i + 1, 1) = tempk2
  
End Sub

Public Function CmpPos(ByRef P() As Double, ByVal i As Long, ByVal Mtd1 As Integer, ByVal Mtd2 As Integer, ByVal Ind As Integer) As Boolean

Dim FixedMtd As Integer

If Ind = 0 Then
  If Mtd2 = 2 Then
    CmpPos = (P(i, Mtd1) > P(i + 1, Mtd1))
  Else
    CmpPos = (P(i, Mtd1) < P(i + 1, Mtd1))
  End If
Else
    
    FixedMtd = Mtd1
    Mtd1 = CByte(Not CBool(Mtd1 * 255)) / 255 'Reverse 0 & 1

  If Mtd2 = 2 Then
    CmpPos = (P(i, Mtd1) > P(i + 1, Mtd1)) And (P(i, FixedMtd) = P(i + 1, FixedMtd))
  Else
    CmpPos = (P(i, Mtd1) < P(i + 1, Mtd1)) And (P(i, FixedMtd) = P(i + 1, FixedMtd))
  End If
End If

End Function