PDA

Vollständige Version anzeigen : Textexport


SchlarbCT
02.10.2002, 09:20
Hallo zusammen,
ich habe folgendes Problem. Ich möchte Daten in ein Textfile schreiben, dieses funktioniert noch ohne Probleme. Nun möchte ich aber sicher stellen das beim Export alle Felder ordnungsgemäss gefüllt sind.
Mein Textfeld sieht folgendemassen aus.
20010322002000001ST H = Zahlenfolge (Länge) i.O.
00000000400000ST H = Zahlenfolge (Länge) n.i.O.
Ist es möglich die Anzahl der Zeichen zu zählen und anschließend den Export durchzuführen.
Bin für jeden Rat dankbar.
Michael <img src="confused.gif" border="0">

Lothi
02.10.2002, 10:06
Hallo Michael

Mit der Len() Funktion kannst du die Anzahl von Zeichen in einem String ermitteln. Leerzeichen werden mitgezählt.

Sub Zählen()
Dim Text As String
Dim Anzahl AS Integer


Text = Me!DeinFeld
Anzahl = Len(Text)


If Anzahl = 20 Then
'Text importiern
Else
'Text nicht importieren
End If

End Sub