FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


入力された内容をチェックしたい(3) (文字列編)

この入力チェックの悩みもついに3回目…
2回目までは、空白だの…Nullだのと見えもしないような
モノを扱ってきました…

そこで、今回のお悩みは…

実際に入力された値(文字列)を確認したい

…ということにしておきます。(-_-☆キラーン

ま~確認したいとはいっても、ピンからキリまでありますが…
今回は文字列に関して少し掻い摘んでみたいと思います。



まず考えられるのが…くうは…バキッ!!( -_-)=○()゚O゚)…クッ!

あ…それは終わってましたね…(T‐T)…イタイ



何を書くか忘れてしまいました…orz

(゚O゚;ハッ オモイダシタ…
今回も、コードではフォーム名は全て Me. で記述します。
また、利用するコントロールもテキストボックスとして、名前もTxt_Aとします。

まずは、基本的な所からで指定した文字と同じかどうか…」というところから
はじめていきませう。
パスワードなんかを設定した場合に利用できる感じでしょうか。
If Me.Txt_A = "xxxxx" Then
こんな書き方ですかね…xxxxは任意の文字列になります。
"xxxx"を変数なんかにしてもよいと思います。

=
ではなく <> を利用した場合は、「指定した文字と違う場合…」という処理になっちゃいますね。
このへんは、行いたい処理で適当にやっちゃってください ┐('~`;)┌

では次に、「指定した文字が含まれているかどうか…」を考えてみたいと思います。

…やばい…(自分的に…)ちょっと難易度上げすぎたかも…

…含まれている…なんで…   ?(゜_。)?(。_゜)?
・・・お!!こんなのはどうでしょう?
If InStr(1,Me.txt_A, "xxxxx", vbTextCompare) > 0 Then
Instr関数を利用して、指定した文字が含まれているかどうかを調べてしまえば
おっけりんぐっぽいです。

Instr関数は
Instr(検索開始文字位置, 検索する文字列, 検索指定文字列, 比較方法)
という引数があります。今回で言えば…

Me.Txt_Aの1文字目から、"xxxx"を、指定した比較方法で探した場合に、
何文字目から始まっているか…


…ということになっている…気がするな~…(-。-) ボソッ。

もし、指定した文字列が見つからなかった場合は「0」を返すので、逆にかんがえると
見つかった場合は、1以上の値を返してくれる…というわけです。

今、とっさに考えた割に上出来ではないですか…ヾ(  ̄▽)ゞオホホホホホ

とりあえず、「指定した文字列が含まれているかどうか…」もクリアと
しておきましょう。

ちなみに
If InStr(1,"xxxxx", Me.txt_A, vbTextCompare) > 0 Then
とした場合は、
"xxxx"の中にMe.Txt_Aの文字列が含まれているかどうか…」という考え方に
なります。

引数の順番が変わると、当然意味も変わってきますので
注意してください。m(_ _)m

上記2つを基本として、文字列から指定した場所の文字を抜き出す
Left関数やRight関数、Mid関数等も織り交ぜると色々と考えられそうです。

では、今回の最後に簡単ではありますが…
Txt_Aに入力された文字列の数で比較する方法も記述しておきませう。

文字列を数えるには、Len関数とLenB関数があります。
基本的に利用されるのはLen関数になると思うので、今回はLen関数だけで
記述したいと思います。
If Len(Me.Txt_A) > X Then
X には任意の数値を指定してもらえばよいです。これで、
Txt_Aに入力された文字数が X より多い場合…」という
形になりますね。

え?簡単すぎ?…そんなこといわれても…(-。-) ボソッ
ネタないし…(-。-) ボソボソッ

とりあえず、基本としての文字列編のお悩みはこれにて終了したいと思います。

今度は、日付編でもつくろうかな~~(-。-) ボソッ

じゃ!(・・)/ シュタ C= C= C= C= C= C= ┌(;・_・)┘トコトコ
↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


コメントの投稿

非公開コメント

Author's Profile ~自己紹介~

Genzo

Author:Genzo
PCは一応自作できるレベル。
ワード・エクセルなら基本的に
扱えるレベル。
プログラム・・・?ん?
VBA・・・?ん?ん??
それって美味しいですか?


~ 当ブログについて ~

~ Mail2Genzo  ~

Calender&Search かれんだーと検索

11 | 2018/12 | 01
- - - - - - 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 - - - - -

Access2Genzo内で検索

Category ~かてごりー~

Comments Tree ~こめんとつりー~


Link ~りんく~

ブロとも申請フォーム

Counter ~かうんた~

Since 2010/08/01:

Online:

タグクラウド

最新トラックバック

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。