[VB 6] meerdere lijnen text implementeren

[Zeus]

Ik heb dus visual basic 6.0 enterprise editie. Nu heb ik voor school een programma'tje gemaakt (mijn eerste, ben best een aap / noob hierin). Om alles in een te doen zou ik graag de broncode, desnoods in txt vorm in het gecompilede programma'tje willen stoppen.
Maar eigenlijk wel logisch dat textvak.text = "40 regels aan text" niet werkt, want omdat het broncode is en VB volgens mij geen lineseperators kent zet ie het " al aan het eind van de eerste regel. Iemand enig idee hoe ik dit moet oplossen?

[gorgi_19]

VB volgens mij geen lineseperators

Wat doet VBCrLF dan?

[Verwijderd]

Hoe ziet je source eruit dan?

Het zou toch mogelijk moeten zijn...

[Zeus]

gorgi_19 schreef op 04 januari 2004 @ 21:43:
[...]

Wat doet VBCrLF dan?

weet ik veel ? probeer maar eens te zoeken naar lineseperators in vb met google. Ik heb namelijk geen boeken over visualbasic.

Maar hoe moet ik dat aanpakken? een lange lijn aan text (tussen ") met daartussen VBCrLF?

Mijn broncode is bijvoorbeeld dit (staat al VBCrLF in):

code:

nbron = "Private Sub Command1_Click() VBCrLF Dim a As Integer VBCrLF Dim b As Integer VBCrLF Dim c As String VBCrLF Dim d As String VBCrLF Dim e As Integer VBCrLFa = Len(Text1) VBCrLF c = "" VBCrLF For b = 1 To a VBCrLF d = Mid(Text1, b, 1) VBCrLF If Asc(d) > 96 Then VBCrLF If Asc(d) < 123 Then VBCrLF e = Asc(d) - 32 VBCrLF f = Chr(e) VBCrLF c = c & f VBCrLF End If VBCrLF Else VBCrLF f = d VBCrLF c = c & f VBCrLF End If VBCrLF Next b VBCrLF Text2 = c VBCrLF End Sub VBCrLF VBCrLF Private Sub empty_Click() VBCrLF Text1.Text = "" VBCrLF End Sub VBCrLF VBCrLF VBCrLF Private Sub empty2_Click() VBCrLF Text2.Text = "" VBCrLF End Sub VBCrLF VBCrLF Private Sub Text1_Change() VBCrLF lengtevak = Len(Text1.Text) VBCrLF End Sub VBCrLF"
broncode.Text = nbron

[ Voor 70% gewijzigd door Zeus op 04-01-2004 22:00 ]

[gorgi_19]

Visual Basic .NET:

Dim str as string = "blaat" & VBCrLf & "blaat"

levert op

blaat
blaat

[Zeus]

wauw thx! Gaat wel LANG duren zeg! er is zeker geen andere manier? (ik ga alvast aan de slag, maar voor de volgende keer)

[gorgi_19]

mja.... ken de syntax van VB6 niet zo goed.

Je krijgt iets als

Visual Basic 6:

Dim item() as array = Split(nbron, "VbCrLf")
Dim s as string
For each s in item
    broncode.Text &= s & VbCrLf
Next

[ Voor 16% gewijzigd door gorgi_19 op 04-01-2004 22:07 ]

[Verwijderd]

split en join voorbeeld --> tekst omgooien in volgorde

Dim strForward() As String
Dim strReverse() As String
Dim intCount as Integer
Dim intUpper as Integer

'splits de tekst
strForward = Split(jouwString, "VbCrLf")
'initialiseer de array
intUpper = UBound(strForward)
ReDo, strReverse(intUpper)
'draai de volgorde om
For intCount = 0 to intUpper
strReverse(intUpper - intCount) = strForward(intCount)
Next
'samenvoegen
jouwString = Join(strReverse, "vbClFr")


Doe er je voordeel mee.

Gr. Richard

[Gé Brander]

CHR(10) doet toch ook wonderen?

code:

test=''Test'' & Chr(10) & ''Test''

Levert ook:
Test
Test
op