ＶＢ６で、指定バイト数を超えた場合はその直前に。

質問

VB6で、最高文字数を指定するとともに、そのバイト数を超えた場合、超える直前の状態を出力する文字列とする、という処理を考えています。

最大のバイト数を１１６とすると、全角なら５８文字までですが、
５７文字まで全角で入力し、次の一文字を半角にする。
そして最後に全角を１文字打つと、116バイトを超えてしまうので、
出力文字は半角のところまでとする。
という形です。

Public Function GetStrForLimitByte(cs As String, size As Long)

Dim i As Long
Dim p As Long
Dim limitStr As String
Dim temp As String
Dim parts() As String

limitStr = ""
' 文字列のバイト数が指定バイト数以下は文字列をそのまま返す
If (LenB(cs) <= size) Then
cs = cs

Else
p = Len(cs)
For i = 1 To p
parts(i) = Mid(cs, i, 1)
'1文字ずつ連結
temp = limitStr + parts(i)

If (LenB(temp) > size) Then

limitStr = limitStr

Else

limitStr = limitStr + parts(i)
End If
Next

End If

End Function

すると、parts(i) = Mid(cs, i, 1)のところで「インデックスが有効範囲でありません。」
というメッセが出てしまいます。

なぜでしょうか？

ご回答お待ちします、お願いします。

回答No.2

andy_kun · ベストアンサー

やるなら、
Public Function GetStrForLimitByte(cs As String, size As Long)

Dim i As Long
Dim p As Long
Dim limitStr As String
Dim temp As String
Dim parts() As String

---省略---

　　p = Len(cs)
　　ReDim parts(p)

---以下省略---
かな

お礼

お教えいただいたとおりのようです。大変ありがとうございました。

回答No.1

andy_kun

partsの要素数が指定されていないけどコードはこれで合ってる？

補足

Dim parts() As StringをDim parts(p) As Stringとすると、
「定数式が必要です」
というメッセージが出てしまいます・・。