Question : Algorithme du besoin : Compter le nombre de temps de multiple de rangées

Hé les types, le

I ont un concept de programmation général que je ne peux pas aborder très bien. le

So j'ai une colonne des nombres (seulement 0s et 1s) et dois montrer le début et arrêter la position pour tout les 1s. Par exemple le

1
1
1
0
0
1
1
0
1
1
1
1
0
1
0

would a produit : le
1-3, 6-7, 9-12, 14

I ont créé différentes boucles et ont eu quelques idées, mais ne peuvent pas saisir cette idée complètement en ce moment.  Il peut être parce que c'est vendredi ou cela je suis retardé. L'un des deux.  Si n'importe qui pourrait aider, ce serait considérablement appreciated.

Thanks !
Rob class= de

Réponse : Algorithme du besoin : Compter le nombre de temps de multiple de rangées

Je n'ai pas examiné les autres suggestions, ainsi mes excuses si j'offre quelque chose qui déjà est essayée :)

Ceci fonctionne comme fonction.  Ainsi, si vous avez votre 1s et 0s dans par exemple A1 : A50, alors en une autre cellule vous emploieriez :

=MakeTheList (A1 : A50)
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :

Fonction MakeTheList (ArrayIn comme variante)
    
    Faible x comme variante
    Faible StartAt en tant que longtemps, EndAt en tant que longtemps
    Faible compteur en tant que longtemps
    
    Délimiteur de Const comme corde = « , »
    
    Pour chaque x dans ArrayIn
        Compteur = contre- + 1
        Si x <> 0 puis
            EndAt = contre-
            Si StartAt = 0 puis StartAt = contre-
        Autrement
            Si EndAt <> 0 puis
                Si StartAt <> EndAt alors
                    MakeTheList = MakeTheList et délimiteur et StartAt et « - » et EndAt
                Autrement
                    MakeTheList = MakeTheList et délimiteur et StartAt
                Finir si
                StartAt = 0
                EndAt = 0
            Finir si
        Finir si
    Après
    
    Si StartAt <> 0 puis
        Si StartAt <> EndAt alors
            MakeTheList = MakeTheList et délimiteur et StartAt et « - » et EndAt
        Autrement
            MakeTheList = MakeTheList et délimiteur et StartAt
        Finir si
    Finir si
    
    MakeTheList = mi (MakeTheList, Len (délimiteur))
    
Fonction de fin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us