Bewerken van alle strings in Array

[Roeland035]

Beste forumleden,

Ik heb een emailbody die in een array wordt gezet. De array wordt als volgt gemaakt:
array = Split(Split(olItem.Body, "Company Information")(1), vbCrLf)

De uitkomst van deze array is als volgt:
Voorbeeld:
array(0) "Company Name: Apple Co. "
array(1) "Founder: Steve Jobs "
array(2) "Age: 41 "

Hoe kan ik vervolgens door deze array heen loopen zodat in elke string alleen nog maar de linkerkant van de dubbelepunt overblijft?

Gewenste uitkomst:
array(0) "Company Name:"
array(1) "Founder:"
array(2) "Age:"

 

[snb]

Je bestaande 1-liner iets uitbreiden.

 

[edmoor]

Probeer eens:
array(0) = Split(array(0), ":")(1)

 

[Roeland035]

Ik heb al meer dan 8 uur (geen grap) besteed om die 1-liner al het werk te laten uitvoeren. Tot heden nog geen succes, om die reden probeer ik een andere uitweg te zoeken.

 

[Roeland035]

Probeer eens:
array(0) = Split(array(0), ":")(1)

Z = Null
Dim newArray()

            For Each Z In array
                array(s) = Split(array(s), ":")(1)
                newArray(s) = Z
                s = s + 1
            Next

Op deze manier kreeg ik het een beetje werkend (dacht ik)
Ik weet niet hoe ik anders de loop zou moeten maken.

 

[edmoor]

Zo bijvoorbeeld:
For s = 1 To Ubound(array)

 

[snb]

Als je gegevens uit #1 kloppen:

array = filter(split(replace(Split(olItem.Body, "Company Information")(1), vbCrLf,":"),":")," ")

of

array = filter(split("~"& replace(Split(olItem.Body, "Company Information")(1), vbCrLf,":~"),":"),"~",0)

 

[Roeland035]

@snb

Ik weet niet precies hoe de code precies in elkaar zit, maar je tweede code uit bericht #7 werkt.
Ik probeer nu de rechterkant van de dubbelepunt in een tweede array te zetten. Ik kwam er al vrij snel uit, maar ik krijg nu achter elke string een "~" teken.

array2 = filter(split("~"& replace(Split(olItem.Body, "Company Information")(1), vbCrLf,":~"),": "),"~",1)

(Ik heb van de dubbelepunt een dubbelepunt spatie gemaakt, omdat hij anders ook een string pakt met http:// van een emailadres.)

Mijn vraag is nu hoe ik in deze tweede array, het "~" teken weg kan krijgen.
Als ik een string open dan ziet het er zo uit:

"	Apple Co. 	~"

"	Steve Jobs 	~"

Ik heb even gespeeld met de Replace functie, maar ik krijg telkens een "type komt niet overeen" foutmelding.


---UPDATE---
Met een loopje er achter aan, wil het uiteindelijk wel lukken! Maar ik neem aan dat het eigenlijk wel zou moeten kunnen in die ene 1-liner.

                For i = 0 To UBound(array2)
                    array2(i) = Replace(array2(i), "~", "")
                Next i