文字列を改行で区切り配列に格納したい

質問

データをプログラムに明記し、プログラムで
いろいろ加工したり処理をしたい場合ですが、
例えば、

Dim　hairetu(10) As String
hairetu(0) = "aaa"
hairetu(1) = "bbb"
hairetu(2) = "ccc"
途中省略
hairetu(10) = "zzz"

これをイメージとして以下のように行う方法はありますでしょうか
あくまでもイメージとしてです。
Dim　mojiretu As String
Dim hairetu(10) As String

mojiretu="aaa\nbbb\nccc\n途中省略zzz"　←
hairetu=mojiretuを”\n”で区切り順次配列に格納する

←は、mojiretu="aaa
bbb
ccc
省略
zzz" 　のようなイメージです。

よろしくお願いします

回答No.2

imogasi · ベストアンサー

（１）Solit関数
（２）Join関数
（１）はa=Split(mojiretu,区切り文字)
VBでは\nは使いません。c言語系統のものです。
VbCr,VbLf、VbCrLfなどですが、この質問の場合に合いますか。
http://www.kanaya440.com/contents/script/vbs/function/string/split.html
（２）http://www.kanaya440.com/contents/script/vbs/function/string/join.html
VBA、VB6で使える。VB２005などではOK
VB6で
http://www.bcap.co.jp/hanafusa/VBHLP/vb6kansu.htm
VBAで
Sub test01()
Dim a(2)
a(1) = "aaa"
a(2) = "bb"
s = Join(a)
MsgBox s
End Sub

お礼

無事に解決しました。早速
Dim strVal
Dim aryStrings
strVal = "山VbCr佐VbCr中VbCr本VbCr鈴"
aryStrings = Split(strVal, "VbCr")
Me.Text = aryStrings(2) ←数値を変えて実験
で正常に動作確認しました。Split関数ですね。改行はVbCrですね！
大変参考になりました。！

回答No.1

dsuekichi

-----------------------------------------------
Dim hairetu() As String
Dim mojiretu As String
mojiretu = "aaa\nbbb\nccc\n途中省略zzz"
hairetu = Split(mojiretu, "\n")
-----------------------------------------------
とか・・・

お礼

Split関数ですね。おかげで解決できました
本当にありがとうございました！！