2.txt

一个不完整的语言编码

m = "              │        ───────        │" + Chr(13) + Chr(10) + m 
'8 
m = "              │                              │" + Chr(13) + Chr(10) + m 
'9 
m = "              │                              │" + Chr(13) + Chr(10) + m 
'10 
m = "              │        ───────        │" + Chr(13) + Chr(10) + m 
'11 
tp = "              │        " 
If ms0.TextMatrix(15, 5) = "" Then 
  tp = tp + "    第③名" 
Else 
  tp = tp + "③、" + Space(10 - strlens(ms0.TextMatrix(15, 5))) + ms0.TextMatrix(15, 5) 
End If 
tp = tp + Space(36 - strlens(tp)) + "          │" 
m = tp + Chr(13) + Chr(10) + m 
'12 
m = "          ──┬──    ───┴───    ──┬──" + Chr(13) + Chr(10) + m 
'13 
tp = "          " 
If ms0.TextMatrix(13, 6) = "" Then 
  tp = tp + "          " 
Else 
  tp = tp + Space((10 - strlens(ms0.TextMatrix(13, 6))) \ 2) + ms0.TextMatrix(13, 6) 
End If 
tp = tp + Space(20 - strlens(tp)) + "├────63────┤" 
If ms0.TextMatrix(14, 6) = "" Then 
  tp = tp + "          " 
Else 
  tp = tp + Space((10 - strlens(ms0.TextMatrix(14, 6))) \ 2) + ms0.TextMatrix(14, 6) 
End If 
m = tp + Chr(13) + Chr(10) + m 
'14 
m = "          ──┴──    ───┬───    ──┴──" + Chr(13) + Chr(10) + m 
'15 
tp = "              │        " 
If ms0.TextMatrix(15, 6) = "" Then 
  tp = tp + "    第④名" 
Else 
  tp = tp + "④、" + Space(10 - strlens(ms0.TextMatrix(15, 6))) + ms0.TextMatrix(15, 6) 
End If 
tp = tp + Space(36 - strlens(tp)) + "          │" 
m = tp + Chr(13) + Chr(10) + m 
'16 
m = "              │        ───────        │" + Chr(13) + Chr(10) + m 
'17 
m = "              │                              │" + Chr(13) + Chr(10) + m 
'18 
m = "      └───┬───┘              └───┬───┘" + Chr(13) + Chr(10) + m 
'19 
m = "      │      61      │              │      62      │" + Chr(13) + Chr(10) + m 
'20 
m = "  ──┬──      ──┬──      ──┬──      ──┬──" + Chr(13) + Chr(10) + m 
'21 
tp = "  " 
t = Left(ms0.TextMatrix(13, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For 
Next i 
If ms0.TextMatrix(i, 5) = "" Then 
  tp = tp + "          " 
Else 
  tp = tp + Space((10 - strlens(ms0.TextMatrix(i, 5))) \ 2) + ms0.TextMatrix(i, 5) 
End If 
tp = tp + Space(18 - strlens(tp)) 
t = Right(ms0.TextMatrix(13, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For 
Next i 
If ms0.TextMatrix(i, 5) = "" Then 
  tp = tp + "          " 
Else 
  tp = tp + Space((10 - strlens(ms0.TextMatrix(i, 5))) \ 2) + ms0.TextMatrix(i, 5) 
End If 
tp = tp + Space(34 - strlens(tp)) 
t = Left(ms0.TextMatrix(14, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For 
Next i 
If ms0.TextMatrix(i, 5) = "" Then 
  tp = tp + "          " 
Else 
  tp = tp + Space((10 - strlens(ms0.TextMatrix(i, 5))) \ 2) + ms0.TextMatrix(i, 5) 
End If 
tp = tp + Space(50 - strlens(tp)) 
t = Right(ms0.TextMatrix(14, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For 
Next i 
If ms0.TextMatrix(i, 5) = "" Then 
  tp = tp + "          " 
Else 
  tp = tp + Space((10 - strlens(ms0.TextMatrix(i, 5))) \ 2) + ms0.TextMatrix(i, 5) 
End If 
m = tp + Chr(13) + Chr(10) + m 
'22 
m = "  ──┴──      ──┴──      ──┴──      ──┴──" + Chr(13) + Chr(10) + m 
'23 
m = "  └─┬─┘      └─┬─┘      └─┬─┘      └─┬─┘" + Chr(13) + Chr(10) + m 
'24 
m = "  │  " + Left(ms0.TextMatrix(13, 1), 2) + "  │      │  " + Right(ms0.TextMatrix(13, 1), 2) + "  │      │  " + Left(ms0.TextMatrix(14, 1), 2) + "  │      │  " + Right(ms0.TextMatrix(14, 1), 2) + "  │" + Chr(13) + Chr(10) + m 
'25 
m = "  ┬      ┬      ┬      ┬      ┬      ┬      ┬      ┬" + Chr(13) + Chr(10) + m 
'26-30 
Data3.DatabaseName = wmdb 
Data3.RecordSource = "score" 
Data3.Refresh 
fst = "" 
'61-L 
t = Left(ms0.TextMatrix(13, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 58 
Next i 
t = Left(ms0.TextMatrix(i, 1), 2)  'g 49 
t2 = Right(ms0.TextMatrix(i, 1), 2)  'g 53 
no(1) = t 
no(2) = t2 
'58_L 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 49 
Next i 
d8(1) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g E1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(1) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(2) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
'58_R 
For i = 1 To ms0.Rows - 1 
  If t2 = ms0.TextMatrix(i, 0) Then Exit For  'f 53 
Next i 
d8(2) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g G1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(3) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(4) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
 
'61-R 
t = Right(ms0.TextMatrix(13, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 59 
Next i 
t = Left(ms0.TextMatrix(i, 1), 2)  'g 52 
t2 = Right(ms0.TextMatrix(i, 1), 2)  'g 56 
no(3) = t 
no(4) = t2 
'59_L 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 52 
Next i 
d8(3) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g B1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(5) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(6) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
'59_R 
For i = 1 To ms0.Rows - 1 
  If t2 = ms0.TextMatrix(i, 0) Then Exit For  'f 56 
Next i 
d8(4) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g G1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(7) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(8) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
 
'62-L 
t = Left(ms0.TextMatrix(14, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 57 
Next i 
t = Left(ms0.TextMatrix(i, 1), 2)  'g 50 
t2 = Right(ms0.TextMatrix(i, 1), 2)  'g 54 
no(5) = t 
no(6) = t2 
'57_L 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 50 
Next i 
d8(5) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g A1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(9) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(10) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
'57_R 
For i = 1 To ms0.Rows - 1 
  If t2 = ms0.TextMatrix(i, 0) Then Exit For  'f 54 
Next i 
d8(6) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g C1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(11) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(12) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
 
'62-R 
t = Right(ms0.TextMatrix(14, 1), 2) 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 60 
Next i 
t = Left(ms0.TextMatrix(i, 1), 2)  'g 51 
t2 = Right(ms0.TextMatrix(i, 1), 2)  'g 55 
no(7) = t 
no(8) = t2 
'60_L 
For i = 1 To ms0.Rows - 1 
  If t = ms0.TextMatrix(i, 0) Then Exit For  'f 51 
Next i 
d8(7) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g F1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(13) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(14) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
'60_R 
For i = 1 To ms0.Rows - 1 
  If t2 = ms0.TextMatrix(i, 0) Then Exit For  'f 55 
Next i 
d8(8) = ms0.TextMatrix(i, 5) 
fst = fst + ms0.TextMatrix(i, 1) + "  " 
t = Left(ms0.TextMatrix(i, 1), 2)  'g H1 
tt = Right(ms0.TextMatrix(i, 1), 2)  'g other 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = t Then 
    d16(15) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
For i = 0 To ms.Rows - 1 
  If ms.TextMatrix(i, ms.Cols - 1) = tt Then 
    d16(16) = ms.TextMatrix(i, 0) 
    Exit For 
  End If 
Next i 
 
'26-30 
For i = 1 To 8 
  If Len(d8(i)) = 0 Then d8(i) = "