InStr tableau est dans le string

Actuellement, je suis en utilisant l'Instrument de rechercher une chaîne dans une chaîne, je suis nouveau sur VB.NET et je me demandais si je peux utiliser l'Instrument à la recherche de tous les éléments d'un tableau dans une chaîne de caractères, ou une fonction similaire comme ceci:

InStr(string, array)

Grâce.

InformationsquelleAutor XandrUu | 2013-04-25

vb.net

3

Vous avez besoin de boucle:
```
Dim bFound As Boolean = False
For Each elem As String In array
    If myString.Contains(elem) Then
        bFound = True
        Exit For
    End If
Next
```
Vous pouvez la transformer en une fonction à appeler plus d'une fois facilement:
```
Public Function MyInStr(myString As String, array() As String) As Boolean
    For Each elem As String In array
        If myString.Contains(elem) Then return True
    Next

    return false
End Function
```
Alors:
```
MyInStr("my string text", New String() {"my", "blah", "bleh"})
```
- J'obtiens l'erreur dans les Dim bFound Comme Bollean = False
- vous avez une faute de frappe là.doit être de type Boolean
- C'est le code: Dim accesFile Comme Boolean et obtenez l'erreur Comme
- êtes-vous sûr est Vb.net?
- asp-classique et vb-net? uhmm...
- c'est en asp classique et de trouver le problème, il devrait dire accesFile = Faux, mais maintenant j'ai une erreur dans la boucle For each le sintax est "Pour Chaque fichier de Session("AccessFiles")"
- Il n'y a pas un "problème" il y, Dim myVar As Type est tout à fait correct dans VB.NET donc, il y a quelque chose d'étrange dans votre plate-forme. Peut-être que vous parlez à propos de javascript?
InformationsquelleAutor SysDragon
3

Va ici le LINQ solution:
```
Dim a() = {"123", "321", "132"}
Dim v = a.Select(Function(x) InStr(x, "3")).ToArray
MessageBox.Show(String.Join(",", v)) '3,1,2
```
- Je vous conseille d'utiliser x.IndexOf dans VB.NET plutôt que de la vieille InStr fonction.
- De la bonne pensée. Heureusement, le code ci-dessus, la personnalisation, donc, OP pouvez utiliser n'importe quelle fonction.
InformationsquelleAutor Neolisk
1

Si vous êtes à la recherche à la recherche d'une chaîne dans l'un quelconque des éléments dans un tableau de chaîne, puis vous pouvez utiliser array.find(<T>) méthode. Voir plus ici: http://msdn.microsoft.com/en-IN/library/d9hy2xwa%28v=vs.90%29.aspx

InformationsquelleAutor Kangkan
0

Instr renvoie un entier spécifiant la position de départ de la première occurrence d'une chaîne dans une autre.

Reportez-vous cette

Pour trouver chaîne de caractères dans une chaîne de caractères, vous pouvez utiliser someother méthode

Voici un exemple de mise en évidence tout le texte que vous recherchez dans le même temps, mais si que n'est pas ce que vous voulez, vous avez à résoudre sur votre propre.
```
Sub findTextAndHighlight(ByVal searchtext As String, ByVal rtb As RichTextBox)
Dim textEnd As Integer = rtb.TextLength
Dim index As Integer = 0
Dim fnt As Font = New Font(rtb.Font, FontStyle.Bold)
Dim lastIndex As Integer = rtb.Text.LastIndexOf(searchtext)
While (index < lastIndex)
  rtb.Find(searchtext, index, textEnd, RichTextBoxFinds.WholeWord)
  rtb.SelectionFont = fnt
  rtb.SelectionLength = searchtext.Length
  rtb.SelectionColor = Color.Red
  rtb.SelectionBackColor = Color.Cyan
  index = rtb.Text.IndexOf(searchtext, index) + 1
End While
End Sub
```
Cette méthode avec recherche de texte "garçon" dans RichTextBox2, changer la textcolor au rouge et à l'arrière de couleur cyan
```
 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 findTextAndHighlight("boy", RichTextBox2)   
 End Sub
```
- Il est préférable si vous pouvez inclure des exemples et des informations directement dans votre réponse. Fournir un lien en plus de ce qui est grand, mais si un lien est la seule chose dans votre réponse, si le lien est jamais rompu, votre réponse sera inutile pour les futurs visiteurs.
- Doggart, merci pour vos conseils utiles. Je vais mettre à jour ma réponse
InformationsquelleAutor Lingasamy Sakthivel

Conversion SysDragon est la réponse classique asp:

Vous avez besoin de boucle:

Dim bFound
bFound = False

For Each elem In myArray
    If InStr(myString, elem)>=0 Then
        bFound = True
        Exit For
    End If
Next

Vous pouvez la transformer en une fonction à appeler plus d'une fois facilement:

Function MyInStr(myString, myArray)
    Dim bFound
    bFound = false

    For Each elem In myArray
        If InStr(myString, elem)>=0 Then
            bFound = True
            Exit For
        End If
    Next

    MyInStr = bFound
End Function

Alors:

MyInStr("my string text", Array("my", "blah", "bleh"))

InformationsquelleAutor gpinkas

Vous devez vous connecter pour publier un commentaire.