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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
テキストファイルから改行コー...
-
C++で空Enterの入力を判...
-
LaTeX: captionの中で改行した...
-
JAVA System.out.println の ...
-
fgetsとsscanf
-
エスケープ文字の復帰(¥r)と...
-
VBAでCSVをExcelに取り込む時に...
-
VB6でブラウザのページソースを...
-
C++のctime関数復帰値の改行
-
【Tex】\\verbatiminputについて
-
Excel VBS、ADODB.Streamで改行
-
VBでcsv読込TextFieldParser...
-
エディットボックスで改行
-
C++Builderでの文字化け
-
最終行の改行について
-
ソースコードの1行が長いとき...
-
掲示板で改行されない
-
改行について
-
vbsで2文字以上の空白を改行に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのコマンドボタンの文字列の...
-
ソースコードの1行が長いとき...
-
エスケープ文字の復帰(¥r)と...
-
ファイルから読み取った改行文...
-
JAVA System.out.println の ...
-
C++で空Enterの入力を判...
-
COBOLの改行
-
テキストファイルから改行コー...
-
改行について
-
【VBA】エクセルで最後の不要な...
-
1行ごとに取得して、その改行...
-
jsp 改行コードで改行させて表...
-
VBAでCSVをExcelに取り込む時に...
-
エクセルVBA 文字列領域が不足...
-
最終行の改行について
-
改行を読み飛ばす
-
コンボボックスの項目中に改行を
-
ExcelVBAでメールを作成してメ...
-
テキストボックス行の桁数を制...
-
JavaMail,本文中の改行について
おすすめ情報