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
No.3ベストアンサー
- 回答日時:
こんにちは。
再びmaruru01です。ちょっと気になったので書きます。
If文のElseの部分は、改行が文末になかった場合に、一番後ろの改行より後ろに残った文を格納するための記述です。
pooh_200xさんのコードだと、この部分の文字数チェックが出来ません。(もちろん、必ず文末に改行があるなら問題はないわけですが。)
従って、とりあえず、各行ごとに配列に格納してしまって、その後であらためてループを回して、文字数を確認していった方がいいような気がします。
蛇足になってしまったらすみません。
では。
・・・その通りでした。(恥;
ポイント発行する前に気づいて頂いて助かりました。
>その後、問題も解決し順調に動作しております。
>本当にありがとうございます。
No.2
- 回答日時:
こんにちは。
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です。
参考になれば幸いです。
では。
できました!
ありがとうございます。
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
No.1
- 回答日時:
Windowsだと改行がASCIIコード13と10で1文字だからです。
Macの場合は13だけ、UNIXだと10だけになりますね。
#基本的にですが・・・
それ以上のことは文字コードについて調べてください。
ではでは☆
回答ありがとうございます。
質問の仕方が悪くてスミマセン。
1つのテキストボックス内で「横が(ASCII)20文字以内・縦が25行以内」
と言う条件で、文字Over(1行>20文字)の取得方法が知りたいです。
>>よろしくお願い致します。(ヒントだけでも・・・(汗;)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
エスケープ文字の復帰(¥r)と...
-
JavaMail,本文中の改行について
-
ソースコードの1行が長いとき...
-
Excel VBAからBeckyを起動して...
-
1行ごとに取得して、その改行...
-
メールの1行の文字数制限について
-
awkの BEGIN{RS=""} で空行を削...
-
Objective-c 改行コードによる...
-
VBAでCSVをExcelに取り込む時に...
-
エクセルVBA 文字列領域が不足...
-
ファイル内の1行(レコード)から...
-
textarea , PHP, 確認画面 改行
-
awkで改行を除いて文字列を抜き...
-
PHP textareaの情報をファイル...
-
delphi でのコード上でTab を入...
-
VBでcsv読込TextFieldParser...
-
JavaDoc コメントの改行について
-
POSTで改行コードを受け渡すには
-
VBA テキストボックスの行数取得
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
ソースコードの1行が長いとき...
-
エスケープ文字の復帰(¥r)と...
-
COBOLの改行
-
C++で空Enterの入力を判...
-
C# DataGridViewのセルを改行禁...
-
改行について
-
Excel VBAからBeckyを起動して...
-
ExcelVBAでメールを作成してメ...
-
テキストファイルから改行コー...
-
最終行の改行について
-
グレープシティのSPREAD...
-
JavaDoc コメントの改行について
-
コンボボックスの項目中に改行を
-
エクセルVBA 文字列領域が不足...
-
JavaMail,本文中の改行について
-
ファイルから読み取った改行文...
-
【VBA】エクセルで最後の不要な...
-
JAVA Spring 改行コードを含む...
-
改行コードが半角スペースにな...
おすすめ情報