Absätze VB

[Fynnl]

Ich hab ein kleines Problem:
Ich lese mit meinem Program eine XML-Datei aus. Jede Zeile der XML-Datei bekommt einen eigenen String. So nun will ich die ganzen Strings wieder in einer TextBox einfügen. Das klappt zwar nur das die Zeichen alle hintereinander "kleben". Also mein Code:
zeile(1) = abc
zeile(2) = def
TextBox1.Text = zeile(1) + zeile(2)

Dann kommt eben abcdef raus. Es soll aber jeder String eine eigene Zeile bekommen! Also so:
abc 'zeile(1)
def 'zeile(2)

Hoffentlich könnt ihr mir helfen!

Fynn

 

[Icinger]

Du hängst ganz einfach einen Zeilenumbruch drann......
zB so:
TextBox1.Text = zeile(1) &vbCRLF & zeile(2)

lg, Icinger

 

[Fynnl]

wird nur heftig wenn man dann 74 Zeilen hat!!!

 

[Zerd]

Definiere heftig... Was ist denn das Problem an dem Vorschlag von Icinger?

 

[Fynnl]

naja, das ganze sah dann am Ende so aus:

TextBox7.Text = Zeile(1) & vbCrLf & Zeile(2) & vbCrLf & Zeile(3) & vbCrLf & Zeile(4) & vbCrLf & Zeile(5) & vbCrLf & Zeile(6) & vbCrLf & Zeile(7) & vbCrLf & Zeile(8) & vbCrLf & Zeile(9) & vbCrLf & Zeile(10) & vbCrLf & Zeile(11) & vbCrLf & Zeile(12) & vbCrLf & Zeile(13) & vbCrLf & Zeile(14) & vbCrLf & Zeile(15) & vbCrLf & Zeile(16) & vbCrLf & Zeile(17) & vbCrLf & Zeile(18) & vbCrLf & Zeile(19) & vbCrLf & Zeile(20) & vbCrLf & Zeile(21) & vbCrLf & Zeile(22) & vbCrLf & Zeile(23) & vbCrLf & Zeile(24) & vbCrLf & Zeile(25) & vbCrLf & Zeile(26) & vbCrLf & Zeile(27) & vbCrLf & Zeile(28) & vbCrLf & Zeile(29) & vbCrLf & Zeile(30) & vbCrLf & Zeile(31) & vbCrLf & Zeile(32) & vbCrLf & Zeile(33) & vbCrLf & Zeile(34) & vbCrLf & Zeile(35) & vbCrLf & Zeile(36) & vbCrLf & Zeile(37) & vbCrLf & Zeile(38) & vbCrLf & Zeile(39) & vbCrLf & Zeile(40) & vbCrLf & Zeile(41) & vbCrLf & Zeile(42) & vbCrLf & Zeile(43) & vbCrLf & Zeile(44) & vbCrLf & Zeile(45) & vbCrLf & Zeile(46) & vbCrLf & Zeile(47) & vbCrLf & Zeile(48) & vbCrLf & Zeile(49) & vbCrLf & Zeile(50) & vbCrLf & Zeile(51) & vbCrLf & Zeile(52) & vbCrLf & Zeile(53) & vbCrLf & Zeile(54) & vbCrLf & Zeile(55) & vbCrLf & Zeile(56) & vbCrLf & Zeile(57) & vbCrLf & Zeile(58) & vbCrLf & Zeile(59) & vbCrLf & Zeile(60) & vbCrLf & Zeile(61) & vbCrLf & Zeile(62) & vbCrLf & Zeile(63) & vbCrLf & Zeile(64) & vbCrLf & Zeile(65) & vbCrLf & Zeile(66) & vbCrLf & Zeile(67) & vbCrLf & Zeile(68) & vbCrLf & Zeile(69) & vbCrLf & Zeile(70) & vbCrLf & Zeile(71) & vbCrLf & Zeile(72) & vbCrLf & Zeile(73) & vbCrLf & Zeile(74)

 

[DOcean]

kann man das nicht per Schleife machen...

for(int i=1;i TextBox7.Text = TextBox7.Text + Zeile(i) + "\n";

Hier mal in C

 

[Zerd]

Ohne je VB programmiert zu haben... (also ohne gewähr)

So müsste des dann aussehen....

For i = 1 to 74
TextBox7.Text = TextBox7.Text & Zeile(i) & vbCrLf
Next i

 

[Tattooed1980]

Hy

Ich programmiere öfters in VB6 und kann damit sagen, das die Schleife von Zerd funktioniert. Hät ich genauso gemacht

MfG Tattooed1980

 

[Fynnl]

danke, war echt einfacher^^

mhhh, leider tauch jetzt das nächste Problem auf:
Wie gesagt lese ich eine XML Datei Zeile für Zeile aus. Nun ändere ich ein paar Zeilen:

zeile(38) = "width='1'>http://--------" & bild & ".jpg"
zeile(43) = " $h[' & typ & 'MapsHome]<<<$h "
zeile(44) = "$h[' & nextstname & ']>>>$h"
zeile(48) = "textsize='6'>$h[' & regname & ']" & stname & "$h"

Soweit ist alles In Ordnung. Die Zeilen habe ich somit umgeändert, jetzt will ich dei Zeilen in meiner TextBox "Aktualisieren"

For b = 1 To 100
TextBox5.Text = TextBox5.Text & zeile(b) & vbCrLf
Next b

Am Anfang habe ichd en text ja schon mal in dei TextBox eingefügt, damit der neue Text aber nicth unter dem anderem steht, habe ich am ANfang einfach geschreiben:

TextBox5.Text = Nothing oder ""

Aber dann kommt eine Fehlermeldung:
Problembehandlung bei Ausnahmen: System.NullReferenceException

Vielleicht könnt ihr mir ja auch diesmal helfen!

 

[Zerd]

Also ich vermute das du wenn du die Referenz von TextBox5.Text auf Nothing setzt, die Referenz löschst. Und somit der compiler nicht mehr weiß auf welchen speicherbereich er zugreifen soll. Gab es eine angabe zur Zeile wo der fehler auftritt? wenn ja poste bitte den genauen fehler und die relevanten Zeilen, dann ist es leichter dir zu helfen.

 

[Fynnl]

ja, es ist die Zeile, wo das mit TextBox5.Text = Nothing steht!

Konnte das mit dem Nothing jetzt umgehen nur jetzt das nächste problem -__- :
Mein reader liest eine XML-Datei, schreibt jede Zeile in einen String. So nun habe wieder einige Zeilen umgeändert und schreibe sie jetzt wieder in eine andere Datei. Nur irgentwie ändert er den Code total falsch um:

So ändere Ich beatimmte zeilen:

zeile(36) = " http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Thepowerinmini.jpg"
zeile(42) = " $h[' & typ & 'MapsHome]<<<$h $h[' & nextstname & ']>>>$h"
zeile(46) = " $h[' & regname & ']" & stname & "$h"
For a = 1 To 100
TextBox8.Text = TextBox8.Text & zeile(a) & vbCrLf
Next a

Der Code vor dem ändern(XML-Datei):

default


http://fynnl.kilu.de/ManiaLink/3.0/manialink.jpg




http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Donate.jpg


$h[donate10]Donate$h






$h[Home-Fynn]Home$h
$h[Maps-Fynn]Tracks$h
- $h[Database-Fynn]Track-Database$h
$h[Skins-Fynn]Car-Park$h
- $h[Skins-Fynn]Car-Database$h
$h[Avatare-Fynn]Avatar-Galarie$h








http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Thepowerinmini.jpg




$h[MiniMapsHome]<<<$h $h[thepowerinmini2m]>>>$h

$h[RaceMapsHome]<<<$h $h[NächsteSeite]>>>$h

$h[thepowerinmini]The Power in Mini$h

Und der Code nachd em ändern:

?xml version="1.0" encoding="utf-8" ?>


default


http://fynnl.kilu.de/ManiaLink/3.0/manialink.jpg




http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Donate.jpg


$h[donate10]Donate$h






$h[Home-Fynn]Home$h
$h[Maps-Fynn]Tracks$h
- $h[Database-Fynn]Track-Database$h
$h[Skins-Fynn]Car-Park$h
- $h[Skins-Fynn]Car-Database$h
$h[Avatare-Fynn]Avatar-Galarie$h








[COLOR='red'] http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Thepowerinmini.jpg[/COLOR] 



[COLOR='Red']$h[MiniMapsHome]<<<$h $h[thepowerinmini2m]>>>$h
$h[RaceMapsHome]<<<$h $h[next]>>>$h
$h[RaceMapsHome]<<<$h $h[NächsteSeite]>>>$h
[/COLOR] [COLOR='red']$h[thepowerinmini]The Power in Mini$h
$h[regname]Hulango$h[/COLOR]

Am Ende sagt mein internet Browser das da ein Fehler drin ist. Ich weiß zwar welchen, nur das ich ihn nicht beheben kann...

Ihr werdet wohl etwas länger brauchen bis ihr das Problem habt, schein ziemlich schwierig zu sein...

Ich brauch eure Hilfe!

 

[MeX]

danke, war echt einfacher^^

mhhh, leider tauch jetzt das nächste Problem auf...

bitte keine doppelposts sonst !

thx && ceeyaa.mex