Split et IFRésolu

Question

Salut à tous, Je voudrais faire plusieurs SPLIT à la suite comme ceci: L1: bonjour. comment ça va? L2: pas mal. Il y a d'abord un premier split qui envoit d'un coté l'énoncé de L1 et de l'autre l'énoncé de L2. Ensuite je voudrais splitter selon la ponctuation: partie interrogative If InStr(1, Source(I), "?") <> 0 Then If InStr(1, Source(I), ".") <> 0 Then sourceSA() = Split(LCase(Source(I)), ".") For t = 1 To UBound(sourceSA) saf_int = saf_int + 1 Next t End If sourceS() = Split(LCase(Source(I), "?") For j = 0 To UBound(sourceS) x= x+1 [autres instructions qui concernent aussi la partie affirmative] next j end if et j'ai la même chose avec le "." partie affirmative If InStr(1, Source(I), ".") <> 0 Then If InStr(1, Source(I), "?) <> 0 Then sourceSI() = Split(LCase(Source(I)), "?") For t = 1 To UBound(sourceSI) sint_aff= sint_aff+ 1 Next t End If sourceS() = Split(LCase(Source(I), "?") For j = 0 To UBound(sourceS) y= y+1 next j end if Le problème c'est que le sourceSA est traité deux fois, ou que la partie affirmative de l'énoncé est traitée deux fois: une fois dans la partie interrogative, une fois dans la partie affirmative Donc, je voudrais ceci: -reconnaitre un énoncé complet interrogatif et le traiter -reconnaitre le sous-énoncé affirmatif - le couper pour le séparer de l'analyse mais ne pas le traiter (boucle) - le faire traiter par la deuxième partie de la routine merci d'avance

Gobillot · Accepted Answer

Le mieux c'est de compter le tout dans la m&#234;me boucle.





    Dim s As String

    Dim c As String

    Dim i As Integer

    Dim j As Integer

    

    s = "L1: bonjour. comment &#231;a va?"

    

    j = 1

    For i = 1 To Len(s)

        c = Mid$(s, i, 1)

        If c = "." Then

           i = i + 1

           MsgBox "Affirmation: " & Mid$(s, j, i - j)

           j = i

           End If

        If c = "?" Then

           i = i + 1

           MsgBox "Interrogation: " & Mid$(s, j, i - j)

           j = i

           End If

        Next


Daniel

econs · Answer

autre petite chose :





For t = 1 To UBound(sourceSA)

         saf_int = saf_int + 1

      Next t



peut se remplacer par :



saf_int = Ubound(sourceSA)



tout simplement ...


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_lacomm · Answer

Bien merci &#224; tous les deux pour ces simplifications qui vont bien me faciliter la vie.

Split et IF

3 réponses

Discussions similaires