vb@rchiv · Diskussionsforen · Re: Textdatei Filtern...

VB Classic
VB.NET
ADO.NET
VBA
C#

sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[257 User online]
[210 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

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

Visual-Basic Einsteiger

Re: Textdatei Filtern...

Autor: vbtricks
Datum: 20.10.06 11:34

Salut, ja, ist es. Wenn ich das richtig sehe, fangen die Urls immer mit http:// an und enden mit ). Mit der Instr-Funktion kannst du die Position einer Zeichenkette im Text ermitteln, mit Mid kannst du einen Teil rauskopieren. Das ganze musst dann in einer Schleife realisieren. Ich schreibe das jetzt mal ohne das zu testen: Dim intPos As Integer, intPos2 As Integer ' erstes Auftreten suchen intPos = Instr(MeinText, "http://") ' solange weitermachen, wie Urls gefunden werden While intPos > 0 ' abschließende Klammer finden intPos2 = Instr(MeinText, ")", intPos) If intPos2 > 0 Then ' es gibt eine ' Text ausschneiden List1.AddItem(Mid(MeinText, intPos, intPos2 - intPos) End If ' nächste Url finden intPos = Instr(MeinText, "http://", intPos + 1) Wend Kann sein, dass die Syntax an manchen Stellen nicht stimmt (Reihenfolge der Parameter...), aber inzwischen programmiere ich nur noch mit C#. Stefan Web: http://www.vbtricks.de.vu/ VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Textdatei Filtern...	1.159	silas_t	18.10.06 20:47
Re: Textdatei Filtern...	634	vbtricks	20.10.06 11:34
Re: Textdatei Filtern...	556	haribo	20.10.06 18:46
Re: Textdatei Filtern...	779	me36835	27.10.06 18:30

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

sevISDN 1.0

Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m.

Weitere Infos

Tipp des Monats

September 2025
Dieter Otter

Verschieben eines Fensters unterbinden

Details

sevWizard für VB5/6

Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-)

Weitere Infos

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