vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 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

Visual-Basic Einsteiger
Re: Text nach bestimmten Worten durchsuchen 
Autor: Lord_Duke
Datum: 29.08.05 13:51
Achsoooooo..... grml drückst dich aber auch super aus...

da hatte ik aber auch ma so n Code :

i = 1
Zaehlwert1 = Mid(LineOfText, 1, 2)
Do While (Zaehlwert1 <> "X1") And (Zaehlwert1 <> "Or")
i = i + 1
Zaehlwert1 = Mid(LineOfText, i, 2)
Loop
A = i + 3
z = A
i = 1
Zaehlwert1 = Mid(LineOfText, A, 1)
Do While Zaehlwert1 <> Chr(40) And Zaehlwert1 <> ";"
Inhaltswert = Mid(LineOfText, A, i)
z = z + 1
i = i + 1
Zaehlwert1 = Mid(LineOfText, z, 1)
DoEvents
Loop
ZeichnenFeldX1(Yz) = Inhaltswert

Es bewirkt, das Koordinaten aus einer TextDatei ausgelesen werden, wobei die einzelnen KoordinatenBlöcke voneinander getrennt werden.

Musste dir mal angucken obs dir hilft aber das Zauberwort is Mid()


Beispielt für den Inhalt einer solchen textdatei :
Sockel1[(X1)6225(Y1)795(X2)7710(Y2)1815]
Sockel2[(X1)5475(Y1)2700(X2)8250(Y2)3795]
Sockel3[(X1)6120(Y1)1980(X2)9195(Y2)2490]
Sockel3[(X1)5970(Y1)4230(X2)8280(Y2)4905]


Aber mit Mid kannste einzelne Zeichen und Wörter/Zeichenfolgen erfassen . mit nem netten Counter is das schnell gemacht..


Mid(String der durchsucht werden soll, StartZeichenPosi , Zähler ab Startzeichen)

So in Etwa aber Google einfach mal nach Mid

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Text nach bestimmten Worten durchsuchen663EliteGarfield29.08.05 12:39
Re: Text nach bestimmten Worten durchsuchen494Lord_Duke29.08.05 13:03
Re: Text nach bestimmten Worten durchsuchen419EliteGarfield29.08.05 13:11
Re: Text nach bestimmten Worten durchsuchen445Lord_Duke29.08.05 13:13
Re: Text nach bestimmten Worten durchsuchen489EliteGarfield29.08.05 13:15
Re: Text nach bestimmten Worten durchsuchen422Lord_Duke29.08.05 13:21
Re: Text nach bestimmten Worten durchsuchen433EliteGarfield29.08.05 13:27
Re: Text nach bestimmten Worten durchsuchen460Lord_Duke29.08.05 13:51
Re: Text nach bestimmten Worten durchsuchen426EliteGarfield29.08.05 13:55
Re: Text nach bestimmten Worten durchsuchen419Lord_Duke30.08.05 15:59

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