Español
Foro

Hecho: Einlesen de Texto en Multiedit

 

DeHarrow
¡Hola!

Kurze Cuestión: kopiere una Texto con @MoveListToHandle en un Multiedit, habe aber siempre para Schluss des Textes una Leerzeile con drin stehn.
Manuelles y automatisches Löschen el letzten Línea (teils con SendMessage) brachten meiner Meinung después de nichts, el Texto se siempre cada Neueinlesen una Leerzeile mehr adecuado.
Hoffe ihr wisst Yo mi.

Standardmässig es sí en uno Multiedit siempre una Leerzeile disponible - kann Yo el irgendwie unterbinden? Möchte sólo para Schluss des Textes no Leerzeile haben.

Saludo Jürgen.

Editar: Nochmals a Verständis: Lese el eingelesenen Texto en el Multiedit Línea para Línea de y voluntad esta en un Datenbank escribir. El letzte Línea se de me testweise gelöscht. Wenn Yo esta editierten Texto entonces übernehme, entonces scheint me el Leerzeile con übernommen a voluntad. Kann el ser? Lese Yo entonces el Texto otra vez una y übernehme Yo esta entonces otra vez, entonces Yo jedesmal otra vez una zusätzliche Leerzeile al Texto disponible.
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



>Standardmässig es sí en uno Multiedit siempre una Leerzeile disponible

Nein, aber Usted könntest testweise el Texto doch simplemente veces trimmen - a Not settext e&,trim$(getText$(e&))
 
22.12.2009  
 




DeHarrow
siehe Mi Editar oben. Trim etc. Tuve auch ya probiert.

Saludo Jürgen
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



¿Puede Usted veces una MB hacer?
 
22.12.2009  
 




DeHarrow

KompilierenMarcaSeparación
OpenRW_DBF  Prüfen ob Zugriff auf Datenbankdatei möglich
db("Open",#1,$ProgDir + "LSM_Datensätze.dbf")
db("Use",#1)
dbSeek& = db("Seek","FELD8",SubStrGridBox8$,1)
db("Go","*",dbSeek&)
db("GetMemo","NOTIZ")
MoveListToHandle(MultiEdit1&)
db("Close",#1)

/a>

Nach MoveListToHandle Yo meiner Meinung después de siempre una Leerzeile al Texto.
KompilierenMarcaSeparación
WhileLoop GetLineCount(MultiEdit1&)

    GetTextMultiEdit1$ = Trim$(GetLine$(MultiEdit1&,&Loop-1))
    AddStrings GetTextMultiEdit1$

EndWhile


Diesen Texto escribir Yo entonces de el Listbox otra vez en el Datenbank zurück.

...
KompilierenMarcaSeparación
db("PutMemo","NOTIZ")
db("PutRec",dbAppendBlank&)

Editar: Quellcode Por favor, auch con [ /code ] otra vez abschließen. Jörg
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 



Mach doch veces hinter MoveListToHandle(MultiEdit1&) settext multiEdit1&,trim$(getText$(multiEdit1&)).
 
22.12.2009  
 




DeHarrow
IF du bist spitze!!! Thx

Allen Profanern una schönes Weihnachtsfest!!!
 
Angefangen hat alles mit Profan 5.0 ...noch auf Diskette
22.12.2009  
 




Juergen
Baier
...doch como waren ellos otra vez mi Problemas

Mit Trim kann Yo zwar el Leerzeilen al Anfang y Ende rausnehmen, aber qué es z.B. si en el Texto una Leerzeile vorkommt, el drin bleiben se - z.B. en el ersten Línea, como z.B.:

LEERZEILE
Sehr geehrte Damen y Herren,
bla, bla, bla

Wenn Yo, el Texto übernehme (Cursor es beim letzten bla), como Memo abspeichere, entonces Yo beim Wiedereinlesen en el Multiedit una zusätzliche Línea, el Yo pero no haben möchte...

Mit Addstring klappts sin Leerzeile - con MoveListToHandle no.

Saludo Jürgen
 
08.11.2010  
 



Juergen Baier (08.11.10)

Mit Trim kann Yo zwar el Leerzeilen al Anfang y Ende rausnehmen, aber qué es z.B. si en el Texto una Leerzeile vorkommt, el drin bleiben se - z.B. en el ersten Línea, como z.B.:

LEERZEILE
Sehr geehrte Damen y Herren,


Grüße!

Dann prüft uno z.B. simplemente vorher si vorne una Leerzeile klebt y fügt esta después de el Trim$ otra vez a oder Trimt simplemente grundsätzlich y fügt sólo "immer" vorn otra vez una Leerzeile a oder Yo habs Problema no kappiert. ^ ^
 
08.11.2010  
 




Jörg
Sellmeyer
Un kleine If-Abfrage debería como reichen...
KompilierenMarcaSeparación
WhileNot EoF(#1)

    Input #1,Zeile$

    IfNot Zeile$ = ""

        Zeile$ = Trim$(Zeile$)

    EndIf

    'weitere Bearbeitung

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08.11.2010  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

6.051 Views

Untitledvor 0 min.
RudiB.19.08.2021
Peter Max Müller15.10.2017
Wilfried02.06.2016
Erfurt12.11.2015
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie