その4で、要素ごとに配列に格納するところまでできたので、これをTextToElemArray関数としてまとめた。 テキストを与えると、要素に分かれた配列を返してくれる関数だ。 ついでにVBAのモジュールをM1_Main、M2_Sub、M3_Baseの3つに分けて、この関数はM3_Base…

その2で公開したFindString関数の以下の部分は、もっとスマートに書けるということに気づいた。 Else 'ひと文字目が「"」以外の場合は、 '次の「"」の手前までの文字を返して終了 For i = 2 To Len(st) If Mid(st, i, 1) = """" Then FindString = Left(st, …

とりあえず昨日は文字列とそれ以外を切り分けたが、今日はそのつづき。文字列以外の要素はさらにスペースで分割して配列に入れてみる。 【Debug.Printの結果】 MsgBox "こんにちは""" & Name & """さん。" & vbNewLine & "お元気ですか？" ↓memory(0)←[MsgBo…