|
| Autor |
Nachricht |
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Anderer Befehl?
Verfasst am: 19.04.2008, 17:27 |
|
|
| Also es gibt ja einen Befehl, namens "vbNewLine". Nun möchte ich aber nicht eine zeile nach unten, sondern nach oben ... wie geht das? vllt so: "vbDelLine"? |
|
| |
|
 |
Viktor
« Webmaster »
Anmeldedatum: 08.12.2006
Beiträge: 354
Wohnort: Berlin
|
Verfasst am: 19.04.2008, 17:28 |
|
|
| Wovon redest du überhaupt? Meinst du eine Textbox, oder eine Datei oder oder oder ... |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 19.04.2008, 17:37 |
|
|
| eine Datei ... ich möchte statt der Enter taste quasi die Backspacetaste gedrückt bekommen ... |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 19.04.2008, 17:39 |
|
|
| Den Inhalt in eine Variable laden und per Left, Right oder Mid das letzte Zeichen, in dem Fall vbnewline, löschen |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 19.04.2008, 17:46 |
|
|
es geht darum, dass ALLE LEEREN ZEILEN gelöscht werden sollen .... dies mache icgh mit:
| Code: |
Dim alles2 As String
alles2 = Replace(alles, "", "")
|
Aber das bringt ja nix ^^ |
|
| |
|
|
Marduk_
« Moderator »
Anmeldedatum: 17.06.2007
Beiträge: 389
|
Verfasst am: 19.04.2008, 18:05 |
|
|
| Wenn du den Inhalt der Datei in der Variablen hast, kannst du doch per Split(vbCRLf) jede Zeile in ein Array speichern. Dann gehst du per Schleife jedes Arrayfeld durch und überprüfst ob die Zeile leer ist bzw ob der Inhalt des Arrays CrLf, vbnewline,... ist. |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 19.04.2008, 18:09 |
|
|
also ich glaube ihr versteht mich alle nicht:
ich habe eine datei die so aussieht:
Hallo mein name
ist
marcel1994
So, diese lese ich jetzt ein:
| Code: | Dim alles As String
Open "C:\data.txt" For Binary As #6
alles = Space(LOF(6))
Get #6, , alles
Close #6 |
Nun möchte ich aus dem eingelesenen String "alles", die Leeren Zeilen ENTFERNEN, nicht ersetzen durch irgendwas anderes...
Vergesst einfach das was ich vorhin von vbNewLine gelabert hab xD
Wie kann ich das machen? |
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Verfasst am: 19.04.2008, 18:13 |
|
|
| Code: | | alles = replace(alles, vbcrlf & vbcrlf, vbcrlf) |
so müsstes gehen wenn der zeilenumbruch vbcrlf is, weil es gibt ja verschiedene^^
http://sollniss.1x.to/
 |
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 19.04.2008, 18:19 |
|
|
ich weiß nicht ganz welcher zeilenumbruch es ist, denn es wird mit einer IF abfrage geschrieben:
| Code: | If Inhalt(1) = "" Then
Text(1) = ""
End if |
Und wenn Inhalt(1) halt nicht "" ist, dann steht bei Text(1) einfach das was bei Inhalt(1) steht ...
Aber danke sollniss, ich probiere es mal aus
Edit: Sry, aber es funzt nicht der Code von sollniss .. |
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
|
| |
|
|
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Verfasst am: 19.04.2008, 18:27 |
|
|
Edit: Sorry hab dich erst falsch verstanden gehabt
Edit: geht nicht |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 19.04.2008, 22:04 |
|
|
1. vbNewline ist kein Befehl sondern eine Konstante für die Zahlen 13+10, was nichts anderes als ein Zeilenumbruch in Windows ist.
2. vbCrLf ist das selbe. vbNewline soll aber etwas schneller sein. Warum weiß ich nicht.
Das Beispiel von sollniss sollte eigentlich funktionieren.
Wenn nicht, dann liest du eine Datei ein, die andere Zeilenumbrüche nutzt.
Z.B. nur 10. (vbCr)
Würde mich aber wundern, da es ja scheinbar bei dir in der Textbox richtig angezeigt wird, was aber nicht möglich wäre bei anderen Zeilenumbrüchen.
Also nochmal probieren, oder code zeigen wie du es gemacht hast.
mfg
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Registrieren
Login
