- Excel VBA 質問スレ Part62
445 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4fad-9k8E)[sage]：2019/07/23(火) 05:29:57.32 ID:LmcM+lna0 - 意外と記憶にないｺﾚｸｼｮﾝからの連結
追加時にｻｲｽﾞを記録しといて、最後にぴったりｻｲｽﾞでﾒﾓﾘ確保してＭｉｄ
（ｸﾗｽ想定）
Public Item As New Collection, Length As Long
Sub Add(Text As String)
Item.Add Text
Length = Length + Len(Text)
End Sub
Function Text() As String
Dim Pos As Long, Var As Variant
Text = Space(Length)
Pos = 1
For Each Var In Item
Mid(Text, Pos) = Var
Pos = Pos + Len(Var)
Next
End Function
配列のＪｏｉｎは実装のｼﾝﾌﾟﾙさがいいんだけど、１００字＋１０万回で０．３秒
こっちは０．１５秒という倍の速さで、そこそこｼﾝﾌﾟﾙ、可変
普通と言えば普通な発想だけど力業のｲﾒｰｼﾞがあって、やってみようと思わなかったのかも
ちなみにＦｏｒ Ｅａｃｈを番号方式にすると、８０秒ぐらいかかってびっくりした
そんな違うんだね
|