string til array - hvordan

Noget a la

For i=1 to 8
  nr(i)=mid(str,i,1)
next i

Korrektion:

For i=1 to 8
  nr(i)=mid(Str1,i,1)
next i

Lidt uortodoks
nr=split(replace(replace(Str1,"0",",0"),"1",",1"),",")

Eller
for i=1 to 8
nr(i)=mid(Str,i,1)
next i

Hvis det skal være tal, så brug en konverteringsfunktion på de enkelte værdier.
for i=1 to 8
nr(i)=CByte(mid(Str,i,1))
next i

Øv - der er altid nogen der er hurtigere.

:-)

Hvad er der galt her?? Jeg får denne fejl:

Run-time 5
Invalid procedure call or argument

----------

Sub Index(TXT As String)
Dim nr() As Integer
For i = 0 To 7
nr(i) = Mid(TXT, i, 1)
Debug.Print (i)
Next
End Sub

Mener at arrays skal erklæres som strenge altså Dim nr() as string

Hmm, eller at en streng starter fra pos 1 og ikke 0 så du skal køre fra 1 til 8 og ikke 0 til 7.

det hjalp ikke

Jeg skal helt precis spørge:

for i=0 to 7
if (nr(i) = 1 ) then
SetIO
else
ClearIO
end if
next

Hvis den skal være helt sikker så:
Sub Index(TXT As String)
Dim nr() As stringFor i = 0 To 7
nr(i) = Mid(TXT, i, 1)
Debug.Print (i)
Next
End Sub

Prøver lige igen, den smuttede

Sub Index(TXT As String)
  Dim nr() As string
  If Len(TXT) = 8 Then   
    For i = 0 To 7
      nr(i) = Mid(TXT, i+1, 1)
      Debug.Print (i)
    Next
  End If
End Sub

Og så

for i=0 to 7
  if (CInt(nr(i)) = 1 ) then
    SetIO
  else
    ClearIO
  end if
next

Men så skal Dim nr() as string være erklæret globalt og ikke i proceduren Index for ellers vil du ikek kunne få fat i den.

Her var den.

Sub Index(TXT As String)
For i = 1 To 8
    Var = Mid(TXT, i, 1)
    If (Var = "1") Then Debug.Print (i)
Next
End Sub

Tak for hjælpen

Velbekomme

Hvis det skal laves hurtig så gør sådan:

'------------------------------------ Form1 ------------------------------------
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Sub StrToByte(ByVal strData As String, ByRef arrByte() As Byte)
  If Len(strData) > 0 Then
    ReDim arrByte(Len(strData) - 1) As Byte
    Call CopyMemory(arrByte(0), ByVal strData, Len(strData))
  End If
End Sub

Public Sub myIO(ByVal strText As String)
Dim i        As Integer
Dim arrByte() As Byte
  Call StrToByte(strText, arrByte())
  For i = 0 To UBound(arrByte())
    Select Case arrByte(i)
      Case 48 '48 = 0
        'ClearIO <-----------
        Debug.Print (i) & " er 0"
      Case 49 '49 = 1
        'SetIO <-----------
        Debug.Print (i) & " er 1"
    End Select
  Next i
End Sub

Private Sub Form_Load()
Dim strText  As String
  strText = "10011001"
  Call myIO(strText)
End Sub
'------------------------------------ Form1 ------------------------------------

Du kunne også prøve denne

for N = 1 to Len(Str1)
Nr(I) = val(mid(Str1,N,1))
next N

Nr(N) = ... selvfølgelig

For N = 1 to Len(Str1)
  Nr(N) = Val(Mid(Str1,N,1))
Next N

Jeg kunne godt tænke mig at vide om du har tænkt dig at dele ud af de point du har sat af til spørgsmålet?

sorry til bertie, min mail har ikke virket, så jeg havde glemt spm.

Der er nogle fede løsninger, tak til alle for ders indslag

Ok og tak for point.