Warnung: file_put_contents(/home/www/web1/html/php_dev/test.txt) [function.file-put-contents]: failed to open stream: Permission denied in /home/www/web1/html/php_dev/sys/lib.activity.php (Zeile 58)
[VBA] suchen und ersetzen von zeilenumbrüchen [Archiv] - PHP-Scripte PHP-Tutorials PHP-Jobs und vieles mehr

- Ad -
php-resource




Archiv verlassen und diese Seite im Standarddesign anzeigen :
[VBA] suchen und ersetzen von zeilenumbrüchen


 
Wurzel
14-01-2004, 14:12 
 
hallo,
zufällig ein vba-profi hier?

ich versuche gerade mit vba in ppt97 zeilenumbrüche zu eleminieren
sofern sie vorkommenoShp.TextFrame.TextRange.Replace findwhat:=vbNewLine, replacewhat:="_"

leider tut sich da nix. auch mit chr(13) oder anderen konstanten, keine
reaktion. in einzelnen titeln/texten sind aber definitiv zeilenschaltungen
vorhanden, die mir später den nachfolgenden code abschiessen.

hat jemand eine idee oder einen tipp für mich?

gruss
wurzel

 
Abraxax
14-01-2004, 14:23 
 
vbNewLine


kann es auch ein CR sein, der da stört? ;)

 
Wurzel
14-01-2004, 14:29 
 
CR => null reaktion ... nicht mal ne fehlermeldung obwohls den nicht geben sollte als konstante :confused:
vbCrLf Chr(13) + Chr(10) Kombination aus Wagenrücklauf und Zeilenvorschub
vbLf Chr(10) Zeilenvorschubzeichen
vbCr Chr(13) Wagenrücklaufzeichen
vbNewLine Chr(13) + Chr(10) oder Chr(13)
^^ die hab ich schon alle durch ... weder mit find noch mit replace ist dem
was zu entlocken

 
Abraxax
14-01-2004, 15:03 
 
kannst du den string nicht mal zeichenweise durchgehen und dir die ascii nummer ausgeben? oder hast du das schon?

 
Wurzel
14-01-2004, 18:41 
 
da der umgang mit arrays in vba nicht wirklich userfreundlich ist,
hab ich das bisher vermieden, scheint aber die letzte möglichkeit
zu sein ... *grr*

 
Abraxax
14-01-2004, 19:01 
 
tja. da musst du wohl durch... :p

nur so kannst du sehen, welches zeichen es ist... ;)

 
Wurzel
14-01-2004, 19:14 
 
was neues (witziges) von der vba-front :mad: ... find&replace reagieren
nicht auf diese umbruchzeichen ... instr() schon, da greift dann chr(13)
... muss ich nicht verstehen ... bau mir jetzt nen würgaround, wenn nicht
überraschend eine elegantere lösung aufkreuzt ...

 
mrhappiness
14-01-2004, 20:54 
 
in word sucht man nach ^p und findet absatzmarken, eventuell geht das in deinem fall ja auch

oder umständlichDo
pos = InStr(txt, vbCrLf)
If pos = 0 Then Exit Do
txt = Left$(txt, pos - 1) & Right$(txt, Len(txt) - pos - 1)
Loopdas sollte auf jeden fall hinhauen, wenn nicht fress ich nen besen























naja, wenn ich mir's recht überlege, bin ich mir doch nicht mehr sooo sicher, aber ich drück dir auf alle fälle die daumen :D

 
Wurzel
14-01-2004, 21:03 
 
ich checks morgen mal ... im misserfolgsfall: den besen mit oder ohne ketchup? :D

^p ist bei der kiste suboptimal ;)

 
mrhappiness
14-01-2004, 21:05 
 
besen rot weiß wenn's geht :D

warum is ^p suboptimal?

 
Wurzel
14-01-2004, 22:12 
 
Original geschrieben von mrhappiness
warum is ^p suboptimal? ^p müsste ich ja afaik über die interne suche (strg+f) AUSSERHALB des präsentationsmodus UND für die aktive (selbe) präsentation holen.

allerdings geht es bei meinem code um eine volltextsuche im präsentationsmodus ... als ergebnis gibt es eine folie mit den ersten 10 treffern, sauber verlinkt auf die folien der durchsuchten präsentation. die ergebnisliste "kackt ab" wenn ein folientitel einen zeilenumbruch beinhaltet, beim setzen der links steigt er mit nem laufzeitfehler aus => ergo: weg damit.

- -

Alle Zeitangaben in WEZ +2. Es ist jetzt 14:48 Uhr.