Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: z.B. "0" Nullen aus String entfernen
Autor: Ronny Hasse
Datum: 04.06.02 09:24
Public Function IPnullDel (InString as String)as String dim Strg as String dim isPoint as Boolean dim i as long isPoint=False For i=1 to len(inString) if mid (inString,i,1) ="." then isPoint=True select case isPoint case true is mid (inString,i,1) ="0" then end select strg=strg & mid(inString,i,1) ispoint=false is not mid (inString,i,1) ="." then ispoint=True case false strg=strg & mid(inString,i,1) end select Next i IPnullDel = Strg end Function '-------------------- 'At Form Load IP=IPneullDel(172.016.144.020)'einfach die Function aufrufen und null löschen lassen! 'Habe ich eben zusammengebastelt musst du mal probieren sollte aber funktionieren!

z.B. "0" Nullen aus String entfernen	54	Robert	04.06.02 08:06
Re: z.B. "0" Nullen aus String entfernen	201	Dieter	04.06.02 09:14
Re: z.B. "0" Nullen aus String entfernen	30	Robert	04.06.02 09:26
Dann setzt man sich mal hin...	37	Ronny Hasse	04.06.02 09:27
Re: z.B. "0" Nullen aus String entfernen	35	Ronny Hasse	04.06.02 09:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen