0
votes

Comment diviser une chaîne chaque quatrième délimiteur?

est-il possible de diviser une chaîne chaque quatrième délimiteur?

Nous recevons un fichier texte qui possède une chaîne contenant plusieurs jours de données. P>

Je voudrais diviser une fois en utilisant la "|" En tant que délimiteur, mais différentes journées de données sont jointes par une virgule. P>

01/01/2020
user1,89
user2,90
user3,99
02/01/2020
user1,80
user2,85 
user3,97
03/01/2020
user1,88
user2,96
user3,99

vba split

0 commentaires

4 Réponses :

1
votes

essayer, xxx

0 commentaires

1
votes

le faire manuellement: xxx

0 commentaires

1
votes

ou ... xxx

0 commentaires

2
votes

Sub Split4thdelim()
    Dim strOriginal As String
    Dim originalArry() As String
    Dim X As Long, n As Long

    strOriginal = "01/01/2020|user1,89|user2,90|user3,99,02/01/2020|user1," & _
                  "80|user2,85|user3,97,03/01/2020|user1,88|user2,96|user3,99"

    'replace every fourth "," with chr(0)
    For X = 1 To Len(strOriginal)
        If Mid(strOriginal, X, 1) = "," Then
            n = n + 1
            If n Mod 4 = 0 Then Mid(strOriginal, X, 1) = Chr(0)
        End If
    Next X
    originalArry = Split(strOriginal, Chr(0))

    For X = LBound(originalArry) To UBound(originalArry)
        Debug.Print Join(Split(originalArry(X), "|"), vbLf)
    Next
End Sub

0 commentaires