Access97を使用しております。
VBのカテゴリに近いと思い質問させて下さい。
>JIS codeでの文字数・桁数制限を行いたいのですが、
条件がきつく困ってます。

条件.(JIS)20文字で改行 MAXが25桁まで入力可能

>>一応行数は改行数を数えることで、取得できてます。
Dim i As Integer
Dim strChk As String
Dim intCnt As Integer

'2桁取得し改行を認識させる。
For i = 1 To Len(Me.内容) - 1
strChk = Mid$(Me.内容, i, 2)
If strChk = Chr(13) & Chr(10) Then
intCnt = intCnt + 1
End If
Next i
Me.txtGyo = intCnt + 1

Exit Sub

文字数は通常1行であれば↓のようなコードですみますが、両方って・・・・;
>改行マーク「Chr(13)&Chr(10)」迄が1行と考えるって事なんでしょうが初
心者には難しいくご教授お願い致します。

Dim strMoji As String
Dim strChck As String

strMoji = Me.内容

strChck = LenB(StrConv(strMoji, vbFromUnicode))

Me.txtMsg = ""
If strChck >= 33 Then
Me.txtMsg = "文字数がOverしてます。"
Else
Exit Sub
  End If

A 回答 (3件)

こんにちは。

再びmaruru01です。
ちょっと気になったので書きます。
If文のElseの部分は、改行が文末になかった場合に、一番後ろの改行より後ろに残った文を格納するための記述です。
pooh_200xさんのコードだと、この部分の文字数チェックが出来ません。(もちろん、必ず文末に改行があるなら問題はないわけですが。)
従って、とりあえず、各行ごとに配列に格納してしまって、その後であらためてループを回して、文字数を確認していった方がいいような気がします。
蛇足になってしまったらすみません。
では。
    • good
    • 0
この回答へのお礼

・・・その通りでした。(恥;
ポイント発行する前に気づいて頂いて助かりました。
>その後、問題も解決し順調に動作しております。
>本当にありがとうございます。

お礼日時:2001/12/13 13:42

こんにちは。

maruru01です。
一応Windows改行(Chr(13) & Chr(10))として回答します。
まず、1行ずつ配列に格納します。

Dim RowData() As String
Dim Str As String
Dim p As Long
Dim i As Long

Str = Me!内容.Text
i = 0
Do While Len(Str) <> 0
  p = InStr(1, Str, Chr(13))
  If p <> 0 Then
    ReDim Preserve RowData(i)
    RowData(i) = Left(Str, p - 1)
    Str = Mid(Str, p + 2)
    i = i + 1
  Else
    ReDim Preserve RowData(i)
    RowData(i) = Str
    i = i + 1
    Exit Do
  End If
Loop

これで、RowData(0)~RowData(i-1)に各行のデータが格納されます。
行数はiです。なお、改行は除いて格納されます。
あとは、ループをまわして、各行について文字数を調べればOKです。
参考になれば幸いです。
では。
    • good
    • 0
この回答へのお礼

できました!
ありがとうございます。
Dim RowData() As String
Dim Str As String
Dim p As Long
Dim i As Long

Dim strChck As String
Dim strMoj As String

Str = Me.募集内容
i = 0
Do While Len(Str) <> 0
p = InStr(1, Str, Chr(13))
If p <> 0 Then
ReDim Preserve RowData(i)
RowData(i) = Left(Str, p - 1)

'文字数チェック
strMoj = RowData(i)
strChck = LenB(StrConv(strMoj, vbFromUnicode))
Me.txtMsg = ""
If strChck >= 33 Then
i = i + 1
Me.txtMsg = " " & i & "行目の文字数がOverしてます。"
Exit Sub
End If

Str = Mid(Str, p + 2)
i = i + 1

Else
ReDim Preserve RowData(i)
RowData(i) = Str
i = i + 1
Exit Do
End If
Loop

お礼日時:2001/12/13 12:13

Windowsだと改行がASCIIコード13と10で1文字だからです。


Macの場合は13だけ、UNIXだと10だけになりますね。
#基本的にですが・・・

それ以上のことは文字コードについて調べてください。
ではでは☆
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
質問の仕方が悪くてスミマセン。

1つのテキストボックス内で「横が(ASCII)20文字以内・縦が25行以内」
と言う条件で、文字Over(1行>20文字)の取得方法が知りたいです。

>>よろしくお願い致します。(ヒントだけでも・・・(汗;)

お礼日時:2001/12/13 09:24

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

今、見られている記事はコレ!

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ