| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Mise en boucle pour trouver des noms en double dans un fichier aléatoire en VB 4/5/6
    noms dupliqués peuvent provoquer des problèmes avec la saisie des données dans une application. Un exemple typique est celui où les utilisateurs sont exportés à partir d'un fichier texte et saisies dans une base . Un script peut être écrit en Visual Basic pour trouver les entrées en double et empêcher qu'ils soient entrés, plus d'une fois , dans la base de données. Cela vous évitera de modifier les données et supprimer les doublons manuellement , une fois qu'il a été importé , dans la nouvelle application. Choses que vous devez
    Visual Basic éditeur
    Afficher plus Instructions
    1

    Ouvrez un éditeur Visual Basic.
    2

    Créer un nouveau sous-programme : Photos

    Private Sub Button1_Click ( expéditeur de ByVal comme System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
    3

    Lire l'information d'un fichier de texte aléatoire et le stocker dans une variable: Photos

    pseudo As String () = IO.File.ReadAllLines ( "c: \\ usernames.txt " )
    4

    boucle à travers le fichier texte et de vérifier si le nom a déjà été trouvé :

    pour chaque ligne de pseudo

    AChercher = ligne

    Si Array.FindIndex ( noms d'utilisateur , 0, AddressOf FindLine ) < 0 Then

    MsgBox (" Dubplicate trouvé! " )

    Si le nom d'utilisateur est déjà stocké dans la variable " AChercher », un double a été trouvé.
    5 < p> Fermer la boucle qui a déjà été ouvert :

    End If

    Suivant

    End Sub
    6

    Ajoutez fonction pour vérifier l'individu ligne :

    Private Function FindLine ( ligne ByVal As String ) As Boolean

    Si la ligne = AChercher Puis

    retourner vrai

    Else
    < p > return false

    End If End Function


    Cette fonction est appelée dans une étape précédente .
    7

    Appuyez sur la touche F5 pour exécuter le code. Le code en boucle le fichier texte et une boîte de message s'affiche si des doublons sont trouvés .

    Previous :

    next :
      articles connexes
    ·Comment charger une table à partir d'un fichier CSV av…
    ·Comment faire pour modifier la fenêtre active en Visua…
    ·Comment faire pour convertir un DOC pour un fichier TXT…
    ·Comment écrire un fichier XLS dans VB 
    ·Comment envoyer texte à l'invite de commande à partir…
    ·Comment compiler des programmes sur MS Access 2007 
    ·Comment accéder à l' MsgBox Visual Basic avec le grou…
    ·Comment faire pour remplacer un caractère dans Vb.net …
    ·Comment écrire un programme qui rafraîchira l'Explora…
    ·Comment ouvrir des fichiers EXE avec Visual Basic 
      articles en vedette
    ·Comment télécharger un fichier bitmap dans SDK Androi…
    ·Comment nettoyer le Global Assembly Cache 
    ·Comment changer la taille de police à l'aide HTML Prog…
    ·Quelle est la différence entre JVM Memory & Heap Size 
    ·Comment faire pour déterminer si une Listbox A Doubles…
    ·Comment contrôler un clavier dans Visual Basic 
    ·Comment effacer l'historique du navigateur Web VB.Net 
    ·Comment faire pour obtenir des données de DataGridView…
    ·Comment faire pour supprimer une valeur de tableau de l…
    ·Macros VBA Formation 
    Copyright © Connaissances Informatiques http://fr.wingwit.com