My String (STRSQL) La valeur est 1,2,3 , 4 et mon résultat montre vide entre 3 et 4 en raison de la double virgule (,). Mon code suit: -
strParts = Split(strSQL, ", ")
For intCounter = LBound(strParts()) To UBound(strParts())
Me.Controls("cmd" & intCounter).Visible = True
Me.Controls("cmd" & intCounter).Caption = strParts(intCounter)
Next intCounter
3 Réponses :
Vous pouvez remplacer un double ( ou vous utilisez Un index séparé: , ) par un seul (, ) avant fractionnement:
Comme vous pourriez également avoir triplé des virgules, ignorez simplement les entrées vides:
Je pense que la meilleure façon de le faire est de "assainir" votre chaîne pour éliminer les virgules supplémentaires avant de la division. Toutefois, comme @gustaf note, vous pourriez avoir plus de 2 virgules d'affilée. Donc, une solution possible consiste à éliminer de manière itérale des virgules supplémentaires jusqu'à ce que vous n'en ayez aucun. Une telle fonction ressemble à ceci: Pour utiliser cette fonction, faites quelque chose comme ceci: