|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Loop för att hitta dubbletter i en slumpmässig fil i VB 4/5/6

    dubbletter kan orsaka problem med inmatning av data i en applikation . Ett typiskt exempel är när användarna exporteras från en textfil och in i en databas . Ett skript kan skrivas i Visual Basic för att hitta dubbletter och förhindra att de tas upp , mer än en gång , i databasen . Detta kommer att spara dig redigera data och ta bort dubbletter manuellt , när det väl har importerats till den nya ansökan . Saker du behöver Review, Visual Basic Editor
    Visa fler instruktioner
    1

    Öppna en Visual Basic Editor .
    2

    Skapa en ny subrutin :

    Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
    3

    Läs informationen för en slumpmässig textfil och förvara den i en variabel :

    Dim användarnamn As String ( ) = IO.File.ReadAllLines ( " c : \\ usernames.txt " )
    4

    Loop genom textfil och kontrollera om användarnamnet redan har hittat :

    för varje rad i användarnamn

    tofind = linje
    p Om Array.FindIndex ( användarnamn , 0 , AddressOf FindLine ) < 0 Sedan

    MsgBox ( " Dubplicate Found ! " ) katalog p Om användarnamnet är en redan lagrad i variabeln " tofind , " har en dubblett funnit .
    5 < p > Stäng slingan som redan har öppnats :

    End If

    Nästa

    End Sub
    6

    Lägg funktion för att kontrollera den individuella line :

    Private Function FindLine ( ByVal linje As String ) As Boolean
    p Om linjen = tofind Sedan

    return true

    Else
    < p > Return False

    End If

    End Function

    Denna funktion kallas i ett tidigare steg .
    7

    Tryck på F5 för att köra koden. Koden kommer loopa igenom textfilen och en meddelanderuta kommer att visa om några dubbletter hittas .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur vill infoga data i Access Använda VB.Net
    ·Hur man skriver ett Equal -kod för Standard Calculator…
    ·Mid funktion i VBScript
    ·Lägga VBScript till Excel
    ·Hur kopierar du en mapp och dess innehåll i VB.NET
    ·Inaktivera ett nätverk i VB Script
    ·Hur vill uppdatera en GridView
    ·VBA strängjämförelse Funktioner
    ·Hur Räkna ord i en textruta i Visual Basic ( VB )
    ·Inaktivera knappen Stäng i Visual Basic 6
    Utvalda artiklarna
    ·Hur får värde från en kod till XML på en Android
    ·Hur öppnar jag en JSP-fil
    ·Hur du installerar och konfigurerar SSIS
    ·Hur man Byta namn på en fil i PHP
    ·Konvertera en Transact - SQL datum till ett String
    ·Hur vill kolla en sträng för Alphabet Endast i VB
    ·Hur du startar Adobe Från Visual Basic 6
    ·Lägga till två matriser till en tredje
    ·Vad är syftet med dolda fält i Perl CGI
    ·Hur man hittar en Java tråd på Runtime
    Copyright © Dator Kunskap http://www.dator.xyz