将棋：数字・漢字・アルファベットの混じった文字列の変換

##再現したいこと

将棋のSFEN形式をVBAで再現したいです。
例）lg1k4l/3s1+Ps2/p2ppp3/2p4+r1/2g3L1p/Pp1PbP3/1GP5P/1KG1N4/LN2rB2+s w S2NP4p 120

盤面の再現まではできたのですが、最期に持ち駒の変換ができませんでした。
文字の区切りのコードをどのように書けばよいかわかりません。

上の図で、後手・先手持ち駒が　S2NP４歩　とありますが、これを
後手の持ち駒には【歩、歩、歩、歩】
先手の持ち駒には【銀、桂、桂、歩】と表示したいです。

考えていたコードは
①右から文字認識をし、アルファベット大文字に切り替わったところで、セルを分割する
②数字は分割せず、２桂なら桂桂と変換する
③後手番は反転させる←これはできそうです

こんなコードは可能でしょうか？
ご教授いただけると幸いです。
何卒よろしくお願いいたします。

hex309

2021/09/24 01:06 編集

図が見えません。再度アップしてください。また、実際に試したコードを掲載してください。そのほうが回答がつきやすいと思います。

dodox86

2021/09/24 01:19

テーマとして面白そうなのに、ほぼ丸投げ案件になっているのが残念ですね。（私自身は低評価はしていません） [質問するときのヒント] https://teratail.com/help/question-tips

FKD

2021/09/24 01:59

後手持ち駒(sfenではアルファベット小文字)を、漢字変換しているのは何故ですか？

ninngin

2021/09/24 02:05

後手を１８０度回転させるために、変換していました

FKD

2021/09/24 02:13

ソース記載ないので分かりませんが、変換過程の文字列って事ですね。後、歩は最大18枚なので、数字は2桁まで考慮する必要あります。

行動規範の内容に同意します

回答1件

ベストアンサー

こんな感じでどうでしょうか。

VBA
1Sub sample()
2    Dim mc  '持ち駒の文字列
3    mc = "S2NP4歩"
4
5    Dim i, m, n, b, w
6
7    n = 1 '各駒の数（デフォルトは１つ）
8
9    For i = 1 To Len(mc)
10
11        m = Mid(mc, i, 1)   '持ち駒の文字列を１文字ずつ取得
12
13        If IsNumeric(m) Then  '数字の場合
14            n = m             '駒の枚数として記憶
15
16        Else                  '数字以外（英字、漢字）
17
18            If m Like "[A-Z]" Then      '英大文字の場合（＝先手）
19                Select Case m           '漢字に変換
20                    Case "S": m = "銀"
21                    Case "N": m = "桂"
22                    Case "P": m = "歩"
23                End Select
24                b = b & WorksheetFunction.Rept(m, n) '先手の持ち駒の変数に追加
25                                                     ' 例：Rept("銀", 2)は銀銀
26
27            Else                        '上記以外（英小文字、漢字）の場合（＝後手）
28                w = w & WorksheetFunction.Rept(m, n) '後手の持ち駒変数に追加
29
30            End If
31
32            n = 1      '枚数をクリア
33        End If
34    Next
35    
36    Debug.Print b, w
37
38End Sub