realbasic-nug.de
[Top] [All Lists]

Re: Zeilenende Editfield Windows = Chr(13)!!!

To: REALbasic-NUG German <realbasic-nug dot de at lists dot realsoftware dot com>
Subject: Re: Zeilenende Editfield Windows = Chr(13)!!!
From: Mike Ott <mike at psb-info dot ch>
Date: Thu, 23 Mar 2006 06:43:03 +0100
Delivered-to: realbasic-nug dot de at lists dot realsoftware dot com
Thread-index: AcZOPKbL5ZYElrovEdq8nAADk1VPJA==
Thread-topic: Zeilenende Editfield Windows = Chr(13)!!!
> Wirklich? 
> Oder weißt du nicht, das Asc nur den Code vom ersten Zeichen liefert...

Doch, probiers aus! Ich habe Editfield.text zeichenweise per Asc() bis zum
Textende (mit mehreren Zeilenumbrüchen) ausgeben lassen:

  For i = 0 To Len(Freitext.Text)
    Freitext.SelStart = i
    Freitext.SelLength = 1
    Freitext.Refresh
    MsgBox str(Asc(Freitext.SelText))
  Next

Gemerkt hab ich's weil meine bisherige Methode, die das Zeilenende unter
Windows mit Chr(13) + Chr(10) suchte, plötzlich nicht mehr funktionierte.

Liegt das am generellen UTF8 für Steuerelemente?

Gruss
Mike




<Prev in Thread] Current Thread [Next in Thread>