Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS ein Array absteigend sotieren und doppelte loeschen

Frage Entwicklung VB for Applications

Mitglied: Andy33

Andy33 (Level 1) - Jetzt verbinden

11.06.2008, aktualisiert 17:47 Uhr, 7566 Aufrufe, 2 Kommentare

Hallo Ihr

Ich hoffe Ihr könnt mir wieder helfen.

Die Aufgabe:

Ein Array z.B. von 10 Identnummern die in einer Textdatei stehn aber schon in ein Array übertragen wurden absteigend sortieren und doppelte Einträge löschen. Das Ganze soll ich in VBS umsetzen.

Ich würde mich echt Freuen wenn Ihr mir Helfen könntet und evtl. auch ein bisschen dazu schreibt was was macht das ich es auch nachvollziehen kann und etwas daraus lernen kann.

Viele Grüße
Andy
Mitglied: D3S3RT
11.06.2008 um 12:28 Uhr
da solltest du dir erstmal überlegen, welchen sortieralgorithmus du nutzen möchtest.
was einfaches wäre

wenn du aufsteigend sortieren solltest, dann so.. kannste dir ja passend umdrehen.
if array[i]>array[i+1] then tauschen else i:=i+1

das noch passend in ne schleife packen, dann haste das schonmal sortiert.
und dann mit
if array[i]=array[i+1] then loeschen else i:=i+1 die doppelten löschen.

ist nicht wirklich effektiv für größere Mengen, aber bei so kleinen gehts ja.
Bitte warten ..
Mitglied: bastla
11.06.2008 um 17:46 Uhr
Hallo Andy33 und willkommen im Forum!

Noch eine Anmerkung zum Löschen: Falls das Ganze ohne ein weiteres Array gelöst werden soll, könntest Du einen zu löschenden Eintrag auf einen möglichst niedrigen Wert setzen, einen Zähler mitlaufen lassen, am Ende nochmals (absteigend) sortieren und mit einem "ReDim Preserve" das Array auf die Anzahl der zu behaltenden Werte (berechnet aus ursprünglicher Größe des Arrays - Anzahl gelöschter Einträge) reduzieren - die gelöschten Werte "fallen oben raus".

Und, nur zur Sicherheit : http://msdn.microsoft.com/de-de/library/bb979305.aspx

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Windows Update

Windows Update-Suche nach Win7 Neuinstallation wieder schneller

(1)

Erfahrungsbericht von the-buccaneer zum Thema Windows Update ...

Ähnliche Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Windows 10
Vbs getobject auf per Task gestartete Anwendung (4)

Frage von schauan zum Thema Windows 10 ...

Netzwerkgrundlagen
gelöst Doppelte MAC Adresse (3)

Frage von Marius.Follert zum Thema Netzwerkgrundlagen ...

Batch & Shell
Batsch doppelte Zeile in in Text finden und eine löschen (10)

Frage von GNLen1 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Exchange Server
Bestehende eMails autoamatisch weiterleiten (21)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (21)

Frage von Winuser zum Thema Hyper-V ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (16)

Frage von ProfessorZ zum Thema Router & Routing ...