Selles artiklis loome kohandatud funktsiooni andmete sortimiseks tähestikulises järjekorras.
Toorandmed koosnevad juhuslikest nimedest, mida tahame sortida.
Loogiline seletus
Oleme andmete tähestikuliseks sortimiseks loonud kohandatud funktsiooni „SortString”. See võtab sisenditeks allika vahemiku ja positsiooni ning tagastab väärtused, mis põhinevad määratud asukohal. See funktsioon loob esmalt sorteeritud massiivi ja seejärel kasutatakse määratud positsiooni, et eraldada sorteeritud massiivist vajalik väärtus.
Koodi selgitus
UBound (väärtused)
Ülaltoodud funktsiooni kasutatakse massiivi väärtuste arvu lugemiseks.
väärtused (j) = väärtused (j - 1)
Ülaltoodud koodi kasutatakse massiivi väärtuste nihutamiseks ühe indeksi võrra.
Palun järgige koodi allpool
Valik Selgesõnaline funktsioon SortString (allikas vahemikuna, positsioon nii kaua) stringina 'Muutujate deklareerimine Dim lahter vahemikuna Dim väärtused () String Dim i nii pikk, j kui pikk dim tehtud nagu Boole'i ReDim väärtused (1 kuni 1)' Looping through kõik lahtrid vahemikus Iga lahtri lahtris Done = Väär Ja i <= UBound (väärtused) ReDim Säilitage väärtused (1 kuni UBound (väärtused) + 1) Kui i <= UBound (väärtused), siis 'Väärtuse reguleerimine sorteeritud nimemassiivis j = UBound (väärtused) kuni i + 1 samm - 1 väärtused (j) = väärtused (j - 1) Järgmine j Lõpp Kui väärtused (i) = Lahter.Väärtus Järgmine lahter 'Nõutava positsiooni väärtuse määramine SortString = väärtused (Positsioon + 1) Lõppfunktsioon
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile