vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: In einen langen String Bindestriche einfügen 
Autor: OldMan
Datum: 30.11.05 17:49

Public Function ProgCodeProf(ProgCode As String) As String
Dim MakeCode As String
For i = 1 To Len(ProgCode)
MakeCode = MakeCode & Mid(ProgCode, i, 1)
If i Mod 5 = 0 Then MakeCode = MakeCode & "-"
Next
MakeCode = Mid(MakeCode, 1, (Len(MakeCode) - 1))
ProgCodeProf = MakeCode
End Function

Die Funktion macht das gleiche ist aber kürzer.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
In einen langen String Bindestriche einfügen2.263Lacoste28.11.05 22:14
Re: In einen langen String Bindestriche einfügen1.539OldMan29.11.05 08:28
Re: In einen langen String Bindestriche einfügen1.509Lacoste29.11.05 17:54
Re: In einen langen String Bindestriche einfügen1.519OldMan29.11.05 22:06
Re: In einen langen String Bindestriche einfügen1.555Lacoste30.11.05 16:54
Re: In einen langen String Bindestriche einfügen1.515OldMan30.11.05 17:49
Re: In einen langen String Bindestriche einfügen1.514Lacoste30.11.05 23:53

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel