文字列の括弧について(初心者)２

Question

文字列の括弧について(初心者)
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1110818
の質問の続きなのですが、
文字列の中で( )を１セットで使う方法を教えてもらったので自分の使用するプログラムに少し直したのですが、やはり２つ以上の括弧(カッコ)にも対応しなければならなくなりました。
どのようなプログラムになるのでしょうか？

私はInstrは文字列を左からよんでいって最初にある指定した文字(下記の例だと"("など)の場所を何文字目か示してくれるだけなので１つの括弧にしか対応できないと考えています。
なので文字列の中に指定した文字が何個含まれているか調べて、それぞれ何文字目か示してくれるプログラムが
あればできると考えています。

どうか教えてください、おねがいします。


↓今のプログラム

Dim bucketL as Long
Dim bucketR as Long
Dim a as String
Dim b as String

a=Text1.text
bucketL = InStr(a, "(")
bucketR = InStr(a, ")")
If bucketL < bucketR And bucketL * bucketR <> 0 Then
Text2.text = "OK"
End If

fortranxp · Accepted Answer

折角ですので訂正します。
問題は(や)がある時どのように削除するかですね。
Private Sub Command1_Click()
Dim a As String
Dim i As Integer
Dim j As Integer
Dim k As String
Dim l As Integer
Dim m As String

     j = 0
     l = 0
     a = Text1.Text
     For i = 1 To Len(a)
        If Mid(a, i, 1) = "(" Then
            k = k + "と" + CStr(i)
            j = j + 1
        ElseIf Mid(a, i, 1) = ")" Then
            m = m + "と" + CStr(i)
            l = l + 1
        End If
        
    Next i
    Text2.Text = CStr(j) + "個" + k + "番目"
    Text3.Text = CStr(l) + "個" + m + "番目"
    
End Sub

taka_tetsu · Answer

>ヘルプはインターネットにつないでいないと見れないんですよね？
>間違ってたらすいません。

MSDNライブラリをインストールしてください。
そうしたら、調べたい単語にカーソルをあわせてF1でページが開きます。

>Instr([検索の開始位置, ]検索対象となる文字列式,検索する文字列式[, 文字比較のモードを指定する番号])
>と本に書いてあったのですが、これで正しいのでしょうか？

はい、あってます。

>検索の開始位置の部分を変数にしてもよろしいのでしょうか？

かまいません。

iridori_rice · Answer

VBのバージョンは何でしょう？

VB5.0以前だと、Split,Replaceは使えないかも...
VB6.0なら、下記のような感じでどうでしょう？

Dim intKakkoNum1 As Integer
Dim intKakkoNum2 As Integer
Dim strText1 As String
Dim strText2 As String

strText1 = "abc"

intKakkoNum1 = UBound(Split(Text1.Text, "("))
intKakkoNum2 = UBound(Split(Text1.Text, ")"))
If intKakkoNum1 <> intKakkoNum2 Then
Text2.Text = "ＮＧ！"
Exit Sub
Else
strText2 = Replace(Text1.Text, "(", "")
strText2 = Replace(strText2, ")", "")
If strText1 <> strText2 Then
Text2.Text ="ＮＧ！"
Exit Sub
End If
End If

Text2.Text = "ＯＫ！"

#上手く関数化すれば、"[","]"等にも対応可能です。

BLUEPIXY · Answer

＃２様の方針でペアチェックする関数を作りました
-------------------------------------------
Public Function pairCheck(str As String) As Boolean
Dim i, n
n = 0
For i = 1 To Len(str)
    Select Case Mid(str, i, 1)
    Case "("
        n = n + 1
    Case ")"
        n = n - 1
        If n < 0 Then
            pairCheck = False
            Exit Function
        End If
    End Select
Next
pairCheck = (n = 0)
End Function
---------------------------------
[]も同様にできますし、同時にやってもいいですね。
使い方
If pairCheck("(a)bc)((((def)))") then 
  MsgBox "ペアになってますよん"
Else
  MsgBox "ペアになってませんよん"
End If

BLUEPIXY · Answer

>文字列の中に指定した文字が何個含まれているか調べて、それぞれ何文字目か示してくれるプログラム
'検査する文字が含まれる文字位置を配列で返す
Public Function charPos(str As String, c As String)
Dim a()
Dim count, i
ReDim a(Len(str))
count = 0
For i = 1 To Len(str)
If c = Mid(str, i, 1) Then
    a(count) = i
    count = count + 1
End If
Next
ReDim Preserve a(count)
charPos = a
End Function
--------------------------------------
使い方
dim posL,posR,i
posL =charPos("A(BC(DEF(G)))","(")
posR =charPos("A(BC(DEF(G)))",")")
for i=0 to UBOUND(posL) 'UBOUNDで個数がわかる
  debug.print posL(i)
next
結果
2
5
9
----------------------------
こういうのより、もともとの目的からすると
＃２の方の方法がいいと思います

fortranxp · Answer

Private Sub Command1_Click()
Dim a As String
Dim i As Integer
Dim j As Integer
Dim k As String

     j = 0
     a = Text1.Text
     For i = 1 To Len(a)
        If Mid(a, i, 1) = ")" Then
            Exit For
        End If
        If Mid(a, i, 1) = "(" Then
            k = k + "と" + CStr(i)
            j = j + 1
        End If
    Next i
    Text2.Text = CStr(j) + "個" + k + "番目"
    
End Sub
左かっこだけですが右かっこも同様ですので
if文の"("と")"を入れ替えればOKです。

taka_tetsu · Answer

>私はInstrは文字列を左からよんでいって最初にある指定した文字(下記の例だと"("など)の場所を何文字目か示してくれるだけなので１つの括弧にしか対応できないと考えています。

開始位置指定できますけど。
省略しちゃってるから先頭から調べてるだけです。
ヘルプを見てください。

KamoPlat · Answer

普通に文字列を一文字ずつ読んでいって「(」があったら「開いている括弧の数」を増やして「)」があったら「開いている括弧の数」を減らしてやってそれが「-1になっていないか」と、文字列の最後まで行ったときに「0になっているか」を検査すればよいのでは？
VBの細かい関数思い出せないのでもっと簡単にできるかも知れませんが(汗)

laputart · Answer

Dim N as integer
Dim a(9),b(9) as integer
Dim ct1, ct2 as integer
Dim Z as string

'text1をZに置く
Z=Text1.text
' Ln=文字列Zの長さ
Ln=Len(Z)

ct1=0:Ct2=0
'ct1とct2はそれぞれ　（と）の数

for I=1 to Ln
If Mid(Z,i,1)="(" then
 Ct1=ct1+1
 a(Ct1)=I
Elseif Mid(Z,i,1)=")" then
 Ct2=ct2+1
 b(Ct2)=I
End If
next I

Msgbox("(の数は" & ct1 & "個です。")
Msgbox(")の数は" & ct2 & "個です。")

End Sub

a(1) a(2) には（の文字列番号が入ります。

b(1) b(2) には)の文字列番号が入ります。まだエラーとラップとかはしていません。
原始的ですがこういった方法は如何でしょうか。

文字列の括弧について(初心者)２

折角ですので訂正します。

この回答への補足

>ヘルプはインターネットにつないでいないと見れないんですよね？

VBのバージョンは何でしょう？

この回答への補足

＃２様の方針でペアチェックする関数を作りました

>文字列の中に指定した文字が何個含まれているか調べて、それぞれ何文字目か示してくれるプログラム

Private Sub Command1_Click()

>私はInstrは文字列を左からよんでいって最初にある指定した文字(下記の例だと"("など)の場所を何文字目か示してくれるだけなので１つの括弧にしか対応できないと考えています。

Dim N as integer

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

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

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