maschera binaria per stringa

[allegfede]

stringa completa: "DLMMGVSD"

Codice: [Seleziona]

Dim GiorniSettimana As String = "DLMMGVSD"

stringa di confronto: "0101010":

Codice: [Seleziona]

Settimana = Format(Bin(Ritorno), "0000000")

dove:

Codice: [Seleziona]

 Public Sub Button_OK_Click()
Dim Valore As Integer
Dim I As Integer

  For i = 0 To ValiditaGiornaliera.Count - 1
    If ValiditaGiornaliera[i].Value = True Then
      valore = valore + 2 ^ (6 - i)
    Endif
  Next

  Form_InputGiorniSettimana.Close(valore)

End

vorrei ottenere: "_L_M_V_D"

ovvero rimpiazzare nella stringa "DLMMGVSD" un underscore solo se nella stringa di controllo ("0101010") e' presente uno 0.

idee geniali?

[vuott]

Per ora sono riuscito solo a fare questo:   

Codice: [Seleziona]

Private Const GiorniSettimana As String = "DLMMGVSD"


Public Sub Main()

  Dim maschera As String = "00010111"
  Dim b As Byte
   
   For b = 1 To Len(GiorniSettimana)
    Print Replace(Chr(Asc(GiorniSettimana, b) And ((Asc(maschera, b) - 48) * &FF)), "\0", "_");
   Next

End

[Gianluigi]

oppure così

Codice: [Seleziona]

Public Sub Main()

  Dim GiorniSettimana As String = "DLMMGVSD"
  Dim Settimana As String = "0101010"
  Dim n As Byte
  
  For n = 1 To Len(GiorniSettimana)
    If Mid(Settimana, n, 1) = 0 Then Mid(GiorniSettimana, n, 1) = "_"
  Next
  
  Print GiorniSettimana

End

 

[vuott]

..eh... però con l' IF è troppo facile....

[Gianluigi]

..eh... però con l' IF è troppo facile....

    

 

[allegfede]

eleganti come sempre.

questa era la mia brutale funzione:

Codice: [Seleziona]

Public Sub settimana(validita As String) As String
Dim I As Integer
Dim Giorni As String = "DLMMGVS"
Dim appoggio As String
  
  For i = 1 To 7
    If Mid(validita, i, 1) = "1" Then
      appoggio = appoggio & Mid(Giorni, i, 1)
      Else
        appoggio = appoggio & "_"
    Endif
  Next
  
  Return appoggio
End

ma mi piace piu' la vostra

PS: c'e' una D di troppo

[Gianluigi]

...
ma mi piace piu' la vostra

Fai bene a essere diplomatico per non offendere Vuott   

PS: c'e' una D di troppo

Una settimana con due domeniche non sarebbe male 

 

[kicco]

Una settimana con due domeniche non sarebbe male 

Propongo un referendum!   ...adesso vanno di moda...

[Gianluigi]

Una settimana con due domeniche non sarebbe male 

Propongo un referendum!   ...adesso vanno di moda...

Cioè solo in Veneto e Lombardia 

[kicco]

 

[vuott]

Cioè solo in Veneto e Lombardia 

" Volete voi che l'antica e potentissima Repubblica di Genova sia ricostituita nel consesso delle Nazioni ? "

[Gianluigi]

Cioè solo in Veneto e Lombardia 

" Volete voi che l'antica e potentissima Repubblica di Genova sia ricostituita nel consesso delle Nazioni ? "

  Noi ci scherziamo, ma c'è in giro un'aria così strana... vogliamo davvero ritornare ai tempi di una guerra ogni 5 anni e scaramucce tutti i giorni? 

[vuott]

ma c'è in giro un'aria così strana...

W San Giovanni !!!

[Gianluigi]

 
Per quanto riguarda il patrono di Genova, rimando a questo breve approfondimento

 

[vuott]

.......W pure San Zorzo !!!