Absätze

  • VB

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • 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
    [FONT="Verdana"] [COLOR="Lime"]Alt ist man erst [COLOR="lime"]dann[/color] , wenn man [COLOR="lime"]mehr Freude [/color]an der [COLOR="lime"]Vergangenheit[/color], als an der [COLOR="lime"]Zukunft[/color] hat.[/FONT][/color]

    [FONT="Fixedsys"][COLOR="Blue"]:)[/color][/FONT]
  • wird nur heftig wenn man dann 74 Zeilen hat!!!
    [FONT="Verdana"] [COLOR="Lime"]Alt ist man erst [COLOR="lime"]dann[/color] , wenn man [COLOR="lime"]mehr Freude [/color]an der [COLOR="lime"]Vergangenheit[/color], als an der [COLOR="lime"]Zukunft[/color] hat.[/FONT][/color]

    [FONT="Fixedsys"][COLOR="Blue"]:)[/color][/FONT]
  • 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)
    [FONT="Verdana"] [COLOR="Lime"]Alt ist man erst [COLOR="lime"]dann[/color] , wenn man [COLOR="lime"]mehr Freude [/color]an der [COLOR="lime"]Vergangenheit[/color], als an der [COLOR="lime"]Zukunft[/color] hat.[/FONT][/color]

    [FONT="Fixedsys"][COLOR="Blue"]:)[/color][/FONT]
  • kann man das nicht per Schleife machen...

    Quellcode

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

    Hier mal in C
    [SIZE=1]
    Was ist der Unterschied zwischen einem U-Boot und MS Windows?
    Keiner, sobald man ein Fenster aufmacht, fangen die Probleme an
    Alle Tips von mir ohne Gewähr und auf eigenes Risiko !!
    UP1 UP2 UP3[/SIZE][SIZE=1]
    [/SIZE]
  • Hy

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

    MfG Tattooed1980
    Ihr lacht über mich, weil ich anders bin... Ich lache über euch, denn ihr seit alle gleich!
  • 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:

    Quellcode

    1. zeile(38) = "width='1'>http://--------" & bild & ".jpg</icon>"
    2. zeile(43) = " <text textcolor='000E' textsize='7'>$h[' & typ & 'MapsHome]&lt;&lt;&lt;$h "
    3. zeile(44) = "$h[' & nextstname & ']&gt;&gt;&gt;$h</text>"
    4. 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"

    Quellcode

    1. For b = 1 To 100
    2. TextBox5.Text = TextBox5.Text & zeile(b) & vbCrLf
    3. 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:

    Quellcode

    1. TextBox5.Text = Nothing oder ""

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

    Vielleicht könnt ihr mir ja auch diesmal helfen!
    [FONT="Verdana"] [COLOR="Lime"]Alt ist man erst [COLOR="lime"]dann[/color] , wenn man [COLOR="lime"]mehr Freude [/color]an der [COLOR="lime"]Vergangenheit[/color], als an der [COLOR="lime"]Zukunft[/color] hat.[/FONT][/color]

    [FONT="Fixedsys"][COLOR="Blue"]:)[/color][/FONT]
  • 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.
    [SIZE="1"]i'm a signature virus. copy me into your signature to help me spread. - smart questions[/SIZE]
  • 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:

    Quellcode

    1. zeile(36) = " <icon halign='center' height='1' width='1'>http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Thepowerinmini.jpg</icon>"
    2. zeile(42) = " <text textcolor='000E' textsize='7'>$h[' & typ & 'MapsHome]&lt;&lt;&lt;$h $h[' & nextstname & ']&gt;&gt;&gt;$h</text>"
    3. zeile(46) = " $h[' & regname & ']" & stname & "$h"
    4. For a = 1 To 100
    5. TextBox8.Text = TextBox8.Text & zeile(a) & vbCrLf
    6. Next a


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

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8" ?>
    2. <!-- Generated by ManiaLinks Editor -->
    3. <manialink>
    4. <type>default</type>
    5. <line height='0.2'>
    6. <cell width='2'>
    7. <icon height='0.2' width='2'>http://fynnl.kilu.de/ManiaLink/3.0/manialink.jpg</icon>
    8. </cell>
    9. </line>
    10. <line height='0.1'>
    11. <cell bgcolor='00DB' width='0.05'>
    12. <icon height='0.05' width='0.05'>http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Donate.jpg</icon>
    13. </cell>
    14. <cell bgcolor='00DB' width='0.25'>
    15. <text textsize='4'>$h[donate10]Donate$h</text>
    16. </cell>
    17. <cell bgcolor='00DB' width='1.7'></cell>
    18. </line>
    19. <line height='1'>
    20. <cell bgcolor='04DB' width='0.5'>
    21. <text textcolor='0DFF' textsize='5'>
    22. $h[Home-Fynn]Home$h
    23. $h[Maps-Fynn]Tracks$h
    24. - $h[Database-Fynn]Track-Database$h
    25. $h[Skins-Fynn]Car-Park$h
    26. - $h[Skins-Fynn]Car-Database$h
    27. $h[Avatare-Fynn]Avatar-Galarie$h
    28. </text>
    29. </cell>
    30. <cell bgcolor='04DE' width='1.5'>
    31. <icon halign='center' height='1' width='1'>http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Thepowerinmini.jpg</icon>
    32. </cell>
    33. </line>
    34. <line height='0.2'>
    35. <cell bgcolor='04DB' width='0.5'>
    36. <text textcolor='000E' textsize='7'>$h[MiniMapsHome]&lt;&lt;&lt;$h $h[thepowerinmini2m]&gt;&gt;&gt;$h</text>
    37. </cell>
    38. <text textcolor='000E' textsize='7'>$h[RaceMapsHome]&lt;&lt;&lt;$h $h[NächsteSeite]&gt;&gt;&gt;$h</text>
    39. <text halign='center' textcolor='0F0E' textsize='6'>
    40. $h[thepowerinmini]The Power in Mini$h
    41. </text>
    42. </line>
    43. </manialink>
    Alles anzeigen

    Und der Code nachd em ändern:

    Quellcode

    1. ?xml version="1.0" encoding="utf-8" ?>
    2. <!-- Generated by ManiaLinks Editor -->
    3. <manialink>
    4. <type>default</type>
    5. <line height='0.2'>
    6. <cell width='2'>
    7. <icon height='0.2' width='2'>http://fynnl.kilu.de/ManiaLink/3.0/manialink.jpg</icon>
    8. </cell>
    9. </line>
    10. <line height='0.1'>
    11. <cell bgcolor='00DB' width='0.05'>
    12. <icon height='0.05' width='0.05'>http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Donate.jpg</icon>
    13. </cell>
    14. <cell bgcolor='00DB' width='0.25'>
    15. <text textsize='4'>$h[donate10]Donate$h</text>
    16. </cell>
    17. <cell bgcolor='00DB' width='1.7'></cell>
    18. </line>
    19. <line height='1'>
    20. <cell bgcolor='04DB' width='0.5'>
    21. <text textcolor='0DFF' textsize='5'>
    22. $h[Home-Fynn]Home$h
    23. $h[Maps-Fynn]Tracks$h
    24. - $h[Database-Fynn]Track-Database$h
    25. $h[Skins-Fynn]Car-Park$h
    26. - $h[Skins-Fynn]Car-Database$h
    27. $h[Avatare-Fynn]Avatar-Galarie$h
    28. </text>
    29. </cell>
    30. <cell bgcolor='04DE' width='1.5'>
    31. [COLOR='red'] <icon halign='center' height='1' width='1'>http://fynnl.kilu.de/ManiaLink/4.0/Bilder/Thepowerinmini.jpg</icon>[/COLOR] </cell>
    32. </line>
    33. <line height='0.2'>
    34. <cell bgcolor='04DB' width='0.5'>
    35. [COLOR='Red']<text textcolor='000E' textsize='7'>$h[MiniMapsHome]&lt;&lt;&lt;$h $h[thepowerinmini2m]&gt;&gt;&gt;$h</text>
    36. <text textcolor='000E' textsize='7'>$h[RaceMapsHome]&lt;&lt;&lt;$h $h[next]&gt;&gt;&gt;$h</text>
    37. <text textcolor='000E' textsize='7'>$h[RaceMapsHome]&lt;&lt;&lt;$h $h[NächsteSeite]&gt;&gt;&gt;$h</text>
    38. <text halign='center' textcolor='0F0E' textsize='6'>[/COLOR] [COLOR='red']$h[thepowerinmini]The Power in Mini$h
    39. $h[regname]Hulango$h[/COLOR] </line>
    40. </manialink>
    Alles anzeigen

    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!
    [FONT="Verdana"] [COLOR="Lime"]Alt ist man erst [COLOR="lime"]dann[/color] , wenn man [COLOR="lime"]mehr Freude [/color]an der [COLOR="lime"]Vergangenheit[/color], als an der [COLOR="lime"]Zukunft[/color] hat.[/FONT][/color]

    [FONT="Fixedsys"][COLOR="Blue"]:)[/color][/FONT]