Dele en lang tekststreng

Må det være VBA?

og så velkommen til Eksperten..

I VBA er der mange muligheder for at dele en streng, så du er nødt til at fortelle mere om hvordan du vil havde den delt op.

Ja meget gerne VBA

Teksstrengen skal deles i lige store stykker, med 7 karakter i hvert stykke og de skal stå i hver sin celle under hinanden

Jeg er stor tilhænger af VBA - men er man ikke vant til det og først skal sætte sig ind i det, så kan det være en lidt stor mundfuld - her er en løsning, som ikke er så fancy, men som virker. Teksten i A1 bliver delt.

Herefter kan du vælge kopier -> indsæt værdier og værsgo...

[IMG]http://i58.tinypic.com/2j0dxd1.jpg[/IMG]

Det vil ikke altid kunne lad sig gøre, fordi den sidste del vil ikke altid kunne være 7 karakter.

Her er hvordan man gør, du skal bruge denne funktion:


Funktionen vil dele strengen op hver gang der er 7 karakter, den returnere en array med alle delene, så er det op til dig hvordan du vil bruge delene.

Jo Mads.. virker fint - også hvis den sidste tekststreng ikke er 7..

Her er hvad funktionen præcist gør.

Først bliver variablen "result" sat lig med en String array med længden af strengen delt i 7, rundet op til nærmeste hele tal.
Funktionen Math.Truncate runder tallet ned til nærmeste hele tal, grunden til at længden bliver en højere er at man i VBA ikke angiver længden men hvad det sigte index i array'en er.

Så bliver variablen "resultindex" sat til 0.
Derefter starter dar et loop, der starter med 0 og bliver ved så længe at variablen "i" er mindre end længden på strengen.
Inde i loopet sætter den først det index som variablen "resultindex" er, på variablen "result".

Funktionen "Substring" skærer en streng ud fra variablen "str" der starter ved det index som variablen "i" er, og har en længde på den mindste værdig af 7 og længden på strengen - værdien af variablen "i".

Math.Min funktionen bliver i det her tilfælde brugt til at undgå fejl, fordi når den tager det mindste tal og man nævner antallet af karakter der er tilbage så er man sikker på at værdien ikke bliver højere end antallet af det karakter der er tilbage.

kasperth husk når du har fået svar på dit spørgsmål så skal du bede mig om at lægge et svar, og så skal du accepter mit svar.

Hej Mads,

Det skal jeg nok huske, hvis du en dag besvarer et spørgsmål jeg har stillet ;)

Jeg kan moske godt hjælpe dig med lidt mere, men så er jeg nødt til at vide hvad du præcist programmere i, om det er asp.net, Windows programmer, Excel eller noget helt tredje.

+1 til kasperth! :-)

Jeg ved ikke helt hvad "+1 til kasperth" er, kan du ikke forklare lidt nærmere hvad det er?.

Kasperth's kommentar i #10 var bare et sjovt svar til din kommentar i #9, hvilket havde udløst en "like", hvis det havde været på Facebook.

Hvis du tjekker det oprindelige spørgsmål, vil du nemlig se, at dette slet ikke er kasperths, hvorfor du jo så ikke har hjulpet ham så meget... ;-)

til MadsHaupt
Jeg har så lidt forstand på det, så jeg kan ikke få koden til at virke, hvad skal jeg sætte før og efter?

Jeg arbejder i Excel

Jeg ved desværre ikke noget om Excel, jeg arbejder med Windows programmer, så jeg kan kun hjælpe dig med VBA.

Butterlfy skriv noget af din kode, så kan jeg se og fortælle dig hvor den skal sættes ind.

Dette er hvad jeg kan finde ud af. Men så skal jeg selv gøre det hele teksten igennem, - det gi'r jo ingen mening, for så kan jeg jo lige så godt gøre det manuelt.
 
Sub DelTekst()
'
    Selection.TextToColumns Destination:=Range("A4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("B4").Select
   
End Sub

Har en alternativ totalløsning som jeg kan vise senere hvis det er interessant

Supertekst det er interessant

Ok

Dim tekst As String
Public Sub opdelString()
    tekst = Range("A3")
   
    For r = 1 To Len(tekst)
        If Len(tekst) > 0 Then
            Cells(r + 3, 1) = Left(tekst, 7)
            tekst = Mid(tekst, 8)
        Else
            Exit For
        End If
    Next r
End Sub

Formlen går i stå ved For r

Hvilken melding?

Nok fordi r ikke er blevet erklæret

Dim tekst As String, r As Integer
Public Sub opdelString()
    tekst = Range("A3")
   
    For r = 1 To Len(tekst)
        If Len(tekst) > 0 Then
            Cells(r + 3, 1) = Left(tekst, 7)
            tekst = Mid(tekst, 8)
        Else
            Exit For
        End If
    Next r
End Sub

Butterlfy kommer der en fejlmeddelelse?.

#MadsHaupt: Læs nu lige de foregående indlæg, inden du smider en kommentar. Supertekst har allerede spurgt om det samme, og måske endda fundet en løsning på problemet!

#Supertekst
Jeg troede  For r = 1 To Len(tekst)
var erklæringen. Jeg skal vist finde noget andet at give mig til.
Mange tak for jeres svar og jeres tid.

TAK til alle
Så har jeg fået det til at virke, mange tak for alle bidrag.

Butterlfy prøv det her:

#MadsHaupt: Læs nu for f***** lige de forrige kommentarer, spørger har forlængst fået løst problemet!

Fint - så kan vil afslutte sagen..