Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 13.05.2009, 21:02 Titel: Textpuffer |
|
|
Könnte mir jemand sagen, wie man den Textpuffer lesen könnte?
Ich meine wenn ich z.B. mit input "Bitte geben Sie was ein:",text
eingebe, dann wird ja der Variabele text ein String übergeben.
Nun ist es so, dass ich gerne wüsste, beim wievielen Buchstabe ich gerade mit der Eingabe bin.
Dies ist leider für mein Chatprogramm notwendig und ich wäre über jede Hilfe dankbar. |
|
Nach oben |
|
 |
isiprimax
Anmeldungsdatum: 02.01.2009 Beiträge: 77
|
Verfasst am: 13.05.2009, 21:16 Titel: |
|
|
Glaub das ginge nur in einer Schleife, in der du jeden Buchstaben einliest.
Code: | Dim As String chat_text, char
Do
Sleep 1
char = InKey
chat_text = chat_text + char
Locate 1,1 : Print Len (chat_text),chat_text
Loop Until char = Chr(13)
Print chat_text
sleep |
So in etwa. Nur muss man das noch erweitern.
Zuletzt bearbeitet von isiprimax am 13.05.2009, 21:34, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 13.05.2009, 21:17 Titel: |
|
|
genau das hatte ich auch schon gedacht, ist es sonst nicht anderst möglich? |
|
Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005 Beiträge: 4409 Wohnort: /dev/hda1
|
Verfasst am: 13.05.2009, 21:24 Titel: |
|
|
Nein. _________________ Eine handvoll Glück reicht nie für zwei.
--
 |
|
Nach oben |
|
 |
Muttonhead

Anmeldungsdatum: 26.08.2008 Beiträge: 565 Wohnort: Jüterbog
|
|
Nach oben |
|
 |
MOD Fleißiger Referenzredakteur

Anmeldungsdatum: 10.09.2007 Beiträge: 1003
|
Verfasst am: 13.05.2009, 21:47 Titel: |
|
|
Einen eigenen INPUT-Ersatz plus Textlängenbegrenzung hab ich in log-n-process eingebaut. Du kannst ja mal in den Code reinschauen, so um die Zeile 380-400 oder so. (Code gibt es samt Projekt in den Projektvorstellungen) |
|
Nach oben |
|
 |
Andy19312
Anmeldungsdatum: 22.10.2005 Beiträge: 428
|
Verfasst am: 16.05.2009, 23:13 Titel: |
|
|
Ich wollte mich nochmal bedanken.....
Es hat mir auf jedem Fall weitergeholfen:) |
|
Nach oben |
|
 |
|