Søg
Avatar billede lillholm Nybegynder
19. april 2005 - 23:43 Der er 7 kommentarer og
1 løsning

Split en samlet string som 110010101101

Jeg har en string bestaaende af en masse tal/bogstaver

string = 101010

Hvis jeg skal have det udlaest i et array saa det bliver til

spitstring(0) = 1
spitstring(1) = 0
spitstring(2) = 1
spitstring(3) = 0
spitstring(4) = 1
spitstring(5) = 0


Hvordan laver jeg en split funktion som kan dele det saadan ?

Og hvordan goer jeg det saa den fx tager hver anden ? saa det bliver til

spitstring(0) = 10
spitstring(1) = 10
spitstring(2) = 10
Avatar billede arne_v Ekspert
19. april 2005 - 23:46 #1
lav et array af den rigtige længde len(s) eller len(s)\2
løb gennem med en for løkke og assign mid(s,i,1) eller mid(s,2*i-1,2) til elementerne
Avatar billede lillholm Nybegynder
19. april 2005 - 23:49 #2
var det muligt jeg kunne faa dig til at lave et stykke kode ?
Jeg forstaar det ikke 100%
Avatar billede sjh Nybegynder
19. april 2005 - 23:52 #3
Private Sub Form_Load()
Dim i As Integer, c As Integer
Dim strString As String
Dim arrString() As String

  strString = "10203040"

  ReDim arrString((Len(strString) \ 2)) As String
  For i = 1 To Len(strString) Step 2
  arrString(c) = Mid$(strString, i, 2)
  c = c + 1
  Next

  For i = 0 To UBound(arrString)
  List1.AddItem arrString(i)
  Next
End Sub
Avatar billede sjh Nybegynder
19. april 2005 - 23:59 #4
måske beder sådan.. så behøver du ikke c=c+1

Private Sub Form_Load()
Dim i As Integer
Dim strString As String
Dim arrString() As String

  strString = "10203040"

  ReDim arrString((Len(strString) \ 2)) As String
  For i = 1 To Len(strString) Step 2
    arrString(i \ 2) = Mid$(strString, i, 2)
  Next

  For i = 0 To UBound(arrString)
  List1.AddItem arrString(i)
  Next
End Sub
Avatar billede lillholm Nybegynder
20. april 2005 - 00:07 #5
sygt :D
Vi skulle ikke lave en dyst om hvem der kan svare foerst :)

Jeg takker mange gange for de hurtige svar :D:D:D:D vil lige kigge lidt paa det kode sjh har smidt
Avatar billede sjh Nybegynder
20. april 2005 - 00:29 #6
en lille bok.. :D Et array starter med 0 og derfor skal der trækkes 1 fra :D

ReDim arrString((Len(strString) \ 2) - 1) As String
Avatar billede arne_v Ekspert
30. april 2005 - 16:57 #7
lillholm>

Tid at få afsluttet her ?
Avatar billede lillholm Nybegynder
23. maj 2005 - 17:48 #8
wer
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:53 TV4ever 3.0 Af valby i Diverse
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »