fra textbox til array ???

Hvis du kigger på http://www.eksperten.dk/spm/112632 er der et eksempel hvor jeg åbner en fil, tjekker hvor mange linjer der er i filen (hvor der er chr$(10) og chr$(13) altså) og for hver gang jeg har fundet et linjeskift laver jeg en msgbox som angiver hvilket nummer linjen har, og hvilket indhold der hører til den linje.

Du har brug for en let modificeret version af denne kode.

Læs fra textbox istedet for fil, og [MsgBox Text1.text, 0, \"linie nummer \" & antal] skal laves om til noget i stil med [linie(antal) = text1.text] (hvor text1.text så vil være en variabel istedetfor, da du jo netop henter fra en textfil).
Kig på koden, og se om du selv kan finde ud af resten, ellers må du bare sige til :-)

Private Sub Command3_Click()

Dim x As String * 1
Dim filnavn As String
Dim intFreeFile As Integer
Dim antal As Integer

CommonDialog1.ShowOpen
filnavn = CommonDialog1.filename
If filnavn = \"\" Then Exit Sub
intFreeFile = FreeFile

Open filnavn For Binary Access Read As #intFreeFile
    For i = 0 To LOF(1)
        Get #intFreeFile, i + 1, x
        If x = Chr$(10) Then
            \'gør ingenting - linjeskift på vej
        ElseIf x = Chr$(13) Then
            \'linjeskift er her
            MsgBox Text1.text, 0, \"linie nummer \" & antal
            antal = antal + 1
            \'tøm tekstboksen så vi kan skrive på ny linie
            Text1.text = \"\"
        Else
            \'skriv videre på samme linie
            Text1.text = Text1.text & x
        End If
    Next i
Close #intFreeFile

End Sub

Hvis du bruger VB6, kan du erklære dit array således

dim Linie() as string

og derefter få textbox\'ens indhold deroveri ved hjælp af Split:

Linie=split(text1.text, vbCrLf)

Det kræver dog lige, at du vil have splittet op på linieskift

kan man gøre sådan at :
linie(1) = indhold af linie1 i textbox
linie(2) = indhold af linie2 i textbox
osv ...
og
hvordan bruger man kommandoen \"split\" ?

Simon

Syntaxen for Split er:

Split(expression[, delimiter[, count[, compare]]])

Expression er det, du vil have delt op i bidder (indholdet af textbox).
Delimiter er de(t) tegn, du vil bruge som opdelingstegn (linieskift - vbCrLf)
Count er det antal, du vil have opdelt i (-1 betyder ingen grænse)
Compare er enten vbBinaryCompare, vbTextCompare eller vbDatabaseCompare.

Returværdien er et nul-baseret array af strings.

Jeg plejer at bruge den i den simple form:

Linie = Split(Text1.Text, vbCrLf, -1)

nu mangler jeg bare at få koden sådan at arrayed :
linie(1) = linie1
linie(2) = linie2
osv...
så er pointene hjemme :)

Dim linie()
linie = Split(Text1.Text, vbCrLf, 100)

Hvis grænsen for linier altså er 100, ellers gør brug af simon_jacobsens eksempel!

/Mikbj

undskyld! benny.tordrup\'s eksempel s\'føli! :)

Du kan ikke få arrayet til at blive 1-baseret. Desværre.

Hvis du partout vil have det 1-baseret, kan du lave lidt memory-fifleri med CopyMemory over i et 1-baseret array:

Public Declare Sub CopyMemory Lib \"kernel32\" Alias \"RtlMoveMemory\" (Destination As Any, Source As Any, ByVal Length As Long)

Dim DumArray() as string
dim Array1Base() as string

DumArray=Split(Text1.Text, vbCrLf, -1)

ReDim Array1Base(1 to ubound(DumArray)+1)
CopyMemory Array1Base(1), DumArray(0), (UBound(DumArray)+1)*Len(Long)

Det kan lade sig gøre, da en streng i VB reelt kun er en pointer til en streng. Len(Long) skal angives til størrelsen af en long-variabel. AFAIR er den 4.

NB. Hvis du får lavet noget galt i det her, vil du højst sandsynligt crashe VB

Fik du løst dit problem?

nej, jeg vil gerne have svaret lidt mere præcis :)
jeg kan ikke forstå at det her skulle være det rigtige svar(jeg kan nemlig ikke teste det før weekenden) :)
Dim linie(100)
linie = Split(Text1.Text, vbCrLf, 100)
kan det godt passe ?

Nej. Du skal ikke angive antal linier i din dim - det sørger Split selv for. Men ellers er det rigtigt.

ok
så den finder selv ud af antallet af linier *smart*
så takker jeg :)

forresten hvad mener du med denne bemærkning :
\'NB. Hvis du får lavet noget galt i det her, vil du højst sandsynligt crashe VB

Fordi du med copymemory ligger og flytter rundt på hukommelse. Det går galt, hvis du kommer uden for de hukommelsesområder, som variablerne ligger i.

hvad kan man f.eks. gøre forkert ?

Jeg tror noget nær alt kan gå galt med api kald :-) derfor de ikke er så smarte til nybegyndere
- sørg for at gemme dit projekt hver gang du har ændret noget i vb, før du vælger at prøvekøre/teste programmet

ok... godt svar :)