Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
24.11.2003, 16:29 Uhr
~Cptboeing
Gast

Hallo Leute,

ich möchte gerne mit Hilfe von VBA zwei Werte aus Eingabefeldern auslesen und diese Werte in einem dritten Feld zusammenfügen.
Hier ein Beispiel:
1. Feld: 0123456
2. Feld: 5555555
3. Feld: 5555555@0123456

Wie kann ich sowas darstellen? Habe auch Probleme dieses @ richtig zu definieren?

Gruss
CptBoeing :-)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
24.11.2003, 19:01 Uhr
Pablo
Supertux
(Operator)

Meinst du Feld einen Textfeld (textlabel) oder ein Array von Strings?
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
28.11.2003, 11:59 Uhr
~roesli24
Gast

Hier eine mögliche Lösung (Felder können Zahlen und Text beinhalten):

Auf der Maske sind drei Textfelder vorhanden und ein Start Button.
Die Ausgabe wird auf eine bestimmte Stringlänge LenT1/LenT2
mit Vornullen gefüllt

Visual Basic:

Private Sub Command1_Click()

  Const AT As String = "@"
  Const LenT1 As Integer = 5
  Const LenT2 As Integer = 6

  Dim s1 as String
  Dim s2 as String

  Form1.Text3 = ""           'Ausgabefeld leeren

  If Len(Form1.Text1) > LenT1 Or Len(Form1.Text2) > LenT2 Then
      MsgBox "Zulässige Feldlänge(n) überschritten"
      Exit Sub
  End If

  s1 = String(LenT1 - Len(Form1.Text1), "0") + Form1.Text1
  s2 = String(LenT2 - Len(Form1.Text2), "0") + Form1.Text2
  Form1.Text3 = s1 & AT & s2

End Sub

Bearbeitung von FloSoft:

Bitte Code-Tags ( [ vb ] ) verwenden

Dieser Post wurde am 28.11.2003 um 12:21 Uhr von FloSoft editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: