Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Leerzeilen aus Text entfernen
zurück: Formular nach speichern in nächste Reihenfolgeposition? weiter: Feldinhalte erkennen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
RRobert
access- and xls-vba newbie


Verfasst am:
02. Aug 2006, 16:38
Rufname: Robert
Wohnort: MUC

Leerzeilen aus Text entfernen - Leerzeilen aus Text entfernen

Nach oben
       

habe einen Text aus dem ich die leerzeilen und auch die leerzeichen löschen muss!

hat jemand ein kurzes codebeispiel?

thx

_________________
grüße aus muc
Robert
Gast



Verfasst am:
02. Aug 2006, 16:46
Rufname:


AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

Hi,
Code:
    strText = Replace(strText, vbCrLf, "")
    strText = Replace(strText, " ", "")

Gruß
RRobert
access- and xls-vba newbie


Verfasst am:
02. Aug 2006, 16:53
Rufname: Robert
Wohnort: MUC

AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

RRobert am 02. Aug 2006 um 16:50 hat folgendes geschrieben:
hi hi....

wie kann ichs hier einbinden?
Code:
 ' Importdatei einlesen
    Dim ImportZeile As String
    Dim ImportText As String
    Dim iDatNum As Integer
   
    'HTMLDateiName = ImportPfad
    ImportText = ""
    iDatNum = FreeFile
    Open ImportPfad For Input As iDatNum
    Do While Not EOF(iDatNum)
        Line Input #iDatNum, ImportZeile
        ImportText = ImportText & RemoveHTML(ImportZeile) & vbCrLf
    Loop
    Me!Txt_ImportText = ImportText
    Close iDatNum
End Sub
thx

so gehts:
Code:
 ' Importdatei einlesen
    Dim ImportZeile As String
    Dim ImportText As String
    Dim iDatNum As Integer
   
    'HTMLDateiName = ImportPfad
    ImportText = ""
    iDatNum = FreeFile
    Open ImportPfad For Input As iDatNum
    Do While Not EOF(iDatNum)
        Line Input #iDatNum, ImportZeile
        ImportText = ImportText & RemoveHTML(ImportZeile) & vbCrLf
        ImportText = Replace(ImportText, vbCrLf, "")
        ImportText = Replace(ImportText, " ", "")
    Loop
    Me!Txt_ImportText = ImportText
    Close iDatNum
End Sub
thx an den unbekannten!!!
_________________
grüße aus muc
Robert
Willi Wipp
Moderator


Verfasst am:
02. Aug 2006, 17:18
Rufname:
Wohnort: Raum Wiesbaden

Re: Leerzeilen aus Text entfernen - Re: Leerzeilen aus Text entfernen

Nach oben
       

Hi RRobert,

so duerfte es etwas schneller gehen Wink
Code:
        ImportZeile = Replace(ImportZeile, vbCrLf, "")
        ImportZeile = Replace(ImportZeile, " ", "")
        ImportText = ImportText & RemoveHTML(ImportZeile)
        If Right(ImportText) <> vbCrLf Then ImportText = ImportText & vbCrLf

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
RRobert
access- and xls-vba newbie


Verfasst am:
03. Aug 2006, 14:38
Rufname: Robert
Wohnort: MUC


AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

hi willi!

so gehts garnet!
Zitat:
fehler: [Right] Agument ist nicht optional!
was hab ich vergessen?
_________________
grüße aus muc
Robert
Willi Wipp
Moderator


Verfasst am:
03. Aug 2006, 16:01
Rufname:
Wohnort: Raum Wiesbaden

Re: Leerzeilen aus Text entfernen - Re: Leerzeilen aus Text entfernen

Nach oben
       

Hi RRobert,

nicht Du, sondern ich habe was vergessen Embarassed
Code:
        ImportZeile = Replace(ImportZeile, vbCrLf, "")
        ImportZeile = Replace(ImportZeile, " ", "")
        ImportText = ImportText & RemoveHTML(ImportZeile)
        If Right(ImportText, 1) <> vbCrLf Then ImportText = ImportText & vbCrLf

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
RRobert
access- and xls-vba newbie


Verfasst am:
04. Aug 2006, 12:00
Rufname: Robert
Wohnort: MUC

AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

Funktioniert zwar aber leerzeilen und leerzeichen sind alle wieder da!

sorry

_________________
grüße aus muc
Robert
steffen0815
VBA-Programmierer


Verfasst am:
04. Aug 2006, 12:36
Rufname:

AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

Hallo,
darf ich auch noch mal kurz, der Code kommt mir so bekannt vor Wink:
Code:
    Do While Not EOF(iDatNum)
        Line Input #iDatNum, importzeile
        importzeile = Trim(RemoveHTML(importzeile))
        If Len(importzeile) > 0 Then
          Importtext = Importtext & Replace(importzeile, " ", "") & vbCrLf
        End If
    Loop

_________________
Gruß Steffen
RRobert
access- and xls-vba newbie


Verfasst am:
04. Aug 2006, 12:59
Rufname: Robert
Wohnort: MUC

AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

unzulässige verwendung von NULL
_________________
grüße aus muc
Robert
Willi Wipp
Moderator


Verfasst am:
04. Aug 2006, 14:19
Rufname:
Wohnort: Raum Wiesbaden

Re: Leerzeilen aus Text entfernen (III) - Re: Leerzeilen aus Text entfernen (III)

Nach oben
       

Hi RRobert,

OK ich hatte nicht bedacht, das eventuell in RemoveHTML erst die Leerzeichen und Leerzeilen entstehen.
Vergiss es einfach und verwende den obigen funktionierenden Code.
Oder bau in RemoveHTML auch gleich das Entfernen ein.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
steffen0815
VBA-Programmierer


Verfasst am:
04. Aug 2006, 18:35
Rufname:


AW: Leerzeilen aus Text entfernen - AW: Leerzeilen aus Text entfernen

Nach oben
       

Hallo,
ich hab die Geschichte noch etwas angepasst:
Code:
    Do While Not EOF(iDatNum)
        Line Input #iDatNum, ImportZeile
        ImportZeile = RemoveHTML(ImportZeile) & ""
        ImportZeile = Replace(ImportZeile, vbLf, "") ' FireFox-Macke
        ImportZeile = Trim(Replace(ImportZeile, vbTab, "")) 'Tabs entfernen
        If Len(ImportZeile) > 0 Then
            ImportText = ImportText & Replace(ImportZeile, " ", "") & vbCrLf
        End If
    Loop
Ich bin aber weiterhin der Meinung, das die "primitive" Funktion "RemoveHTML" nicht geeignet ist zeilenweise Tag's zu entfernen.
HTML ist viel komplexer als dass es so gefiltert werden könnte.
... und wenn du in deinem alten Beitrag weitergemacht hättest, würden auch die anderen verstehen, was ich meine Wink

_________________
Gruß Steffen
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Text in zwei Spalten gleichzeitig suchen 11 Gormigust 812 14. Mai 2007, 19:35
KlausMz Text in zwei Spalten gleichzeitig suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Text mit Nullen auffüllen 12 Gast2 5093 11. Mai 2007, 07:28
Gast2 Text mit Nullen auffüllen
Keine neuen Beiträge Access Tabellen & Abfragen: Text in einer Spalte teilen 2 toak 1528 12. Apr 2007, 16:13
derArb Text in einer Spalte teilen
Keine neuen Beiträge Access Tabellen & Abfragen: Feldtyp Text > Datum/Uhrzeit und Alter Errechnen 1 harto69 910 03. Apr 2007, 18:00
Nouba Feldtyp Text > Datum/Uhrzeit und Alter Errechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Text in Spalte splitten 6 Mar307 1619 21. Feb 2007, 18:51
Mar307 Text in Spalte splitten
Keine neuen Beiträge Access Tabellen & Abfragen: doppelte Entfernen 2 dkaj 694 19. Feb 2007, 17:52
dkaj doppelte Entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: als Text formatierte Zahlen sortieren 2 tom_r 1440 16. Feb 2007, 12:33
tom_r als Text formatierte Zahlen sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfrage nach Excel! Leerzeilen einfügen. Wie? 22 baldy 3162 26. Jan 2007, 16:28
steffen0815 Access Abfrage nach Excel! Leerzeilen einfügen. Wie?
Keine neuen Beiträge Access Tabellen & Abfragen: Text und Zahlen trennen 1 Tomte 1971 29. Dez 2006, 11:41
Nouba Text und Zahlen trennen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: 2 Tabellen, erste sortieren, duplikate entfernen 6 pasci 2823 07. Aug 2006, 10:11
Gast Abfrage: 2 Tabellen, erste sortieren, duplikate entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Text eingegeben - Aber Zahl steht da?!? 1 LordMorpheus 622 23. Jan 2006, 12:41
Lamer² Text eingegeben - Aber Zahl steht da?!?
Keine neuen Beiträge Access Tabellen & Abfragen: "leading zeros" entfernen 2 Moe 591 18. Okt 2005, 19:05
jens05 "leading zeros" entfernen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA