Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst String nach einem Doppelpunkt trennen

Mitglied: happyman

happyman (Level 1) - Jetzt verbinden

30.08.2007, aktualisiert 14:17 Uhr, 10025 Aufrufe, 4 Kommentare

Hallo Forum,

ich hab ein Problem mit Visual Basic (aus Visual Studio 6), und zwar lese ich von einer Datei eine IP-adresse mit Port ein, sieht z.b. so aus:

192.168.0.1: 8080

Jetzt möchte ich diesen eingelesenen String in IP und Port trennen, also in ein Feld die IP (192.168.0.1) schreiben, und in ein anderes den Port (8080).

Da die IP-Adressen unterschiedlich lang sind (z.b.: 192.168.0.50: 80) kann ich nicht nach einer gewissen anzahl von Stellen den String trennen.

Mein Code (gekürzte Version, damit man sich aufs wesentliche konzentrieren kann) sieht folgendermaßen aus:

01.
Dim IP_PORT As String
02.
Dim IP As String
03.
Dim PORT As String
04.

05.
Open "c:\Liste.txt" For Input As #1            ' Datei öffnen.
06.
Do While Not EOF(1)                            ' Auf Dateiende abfragen.
07.
   Line Input #1, IP_PORT                      ' Zeile Einlesen.
08.
   
09.
   ----- Hier IP_PORT zu IP und PORT machen ------
10.

11.
   Text1.Text = IP                             ' getrennte IP und PORT ausgeben.
12.
   Text2.Text = PORT
13.
Loop
14.
Close #1                                       ' Datei schließen.
Grüße happyman
Mitglied: EvilMoe
30.08.2007 um 13:21 Uhr
Gibt es in VB keine Funktion die, die Position eines bestimmten Zeichens ermittelt. So wie in PHP "strpos"? Dann kannste den String an dieser stelle abschneiden...
Bitte warten ..
Mitglied: happyman
30.08.2007 um 13:32 Uhr
meines wissens, nicht, hab auch schon in der MSDN lib geschaut, aber nichts brauchbares gefunden, das einzige, wäre nach einer best. anzahl von zeichen, aber das kann ich nicht verwenden, weil ja die IP's unterschiedliche Längen haben.
Bitte warten ..
Mitglied: talkinghands
30.08.2007 um 13:42 Uhr
Hi,
gibt es in VB denn denn nicht eine Funktion wie in VScript - InStr() ??

The following examples use InStr to search a string:

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' String to search in.
SearchChar = "P" ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1) ' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(1, SearchString, SearchChar, 0) ' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(SearchString, SearchChar) ' Comparison is binary by default (last argument is omitted). Returns 9.
MyPos = Instr(1, SearchString, "W") ' A binary comparison starting at position 1. Returns 0 ("W" is not found).
Note The InStrB function is used with byte data contained in a string. Instead of returning the character position of the first occurrence of one string within another, InStrB returns the byte position.
Bitte warten ..
Mitglied: happyman
30.08.2007 um 14:17 Uhr
gibt es in VB denn denn nicht eine Funktion
wie in VScript - InStr() ??

Bis heute kannte ich diese Funktion nicht.

Hier noch mal der komplette code:
01.
Dim IP_PORT As String
02.
Dim IP As String
03.
Dim PORT As String
04.

05.
Open "c:\Liste.txt" For Input As #1            ' Datei öffnen.
06.
Do While Not EOF(1)                            ' Auf Dateiende abfragen.
07.
   Line Input #1, IP_PORT                      ' Zeile Einlesen.
08.

09.
   pos = InStr(1, Dateidaten, ":", vbTextCompare)
10.
   strlength = Len(Dateidaten)
11.
   Text1.Text = Left$(Dateidaten, (pos - 1))                           ' getrennte IP und PORT ausgeben.
12.
   Text2.Text = Right$(Dateidaten, (strlength - pos - 1))
13.

14.
Loop
15.
Close #1 
Danke für die Hilfe

mfg happyman
Bitte warten ..
Ähnliche Inhalte
Java
Von Delphi String zu Java String
Frage von GreenDinoJava1 Kommentar

Hallo zusammen! Ich bin dabei Delphicode in Javacode zu übertragen. Frage: ist '<text>' in Delphi equivalent zu "<text>" in ...

Visual Studio
DotNet String Sortierung
gelöst Frage von emeriksVisual Studio5 Kommentare

Hi, habe hier im .Net einen komischen Effekt beim Sortieren von Strings. Gegeben sind 3 Strings (in Wunsch-Reihenfolge) ABC-XY-100 ...

Batch & Shell
Powershell matching string
gelöst Frage von noname69Batch & Shell7 Kommentare

Moin Entwickler, bin derzeit dabei, zwei txt Dateien zu analysieren. Die eine ist (namentlich) zeitlich gesehen der Vorgänger und ...

Batch & Shell

Batch String bzw. Textdatei mittels Regex durchsuchen und String ausgeben

gelöst Frage von aysxdcBatch & Shell3 Kommentare

Hallo, ich möchte mit einer Batch eine Datei durchsuchen. Z. B: Ich will nach "ProjectCompatibilityVersion=" suchen um auf den ...

Neue Wissensbeiträge
Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 15 StundenInternet3 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Router & Routing

Zyxel VMG 1312 B30A - Firmwareupdate nur im "privaten" Firefox Modus möglich

Tipp von the-buccaneer vor 1 TagRouter & Routing2 Kommentare

Hatte hier ein Zyxel 1312 das ums verrecken kein Firmwareupdate durchführen wollte. Datei ist auswählbar, dann kommt der Fortschrittskreisel ...

Windows 7

Windows 7 u. Server 2008 (R2) SHA-2-Update kommt am 12. März 2019

Information von kgborn vor 2 TagenWindows 75 Kommentare

Kleine Info für die Admins der oben genannten Maschinen. Ab Juli 2019 werden Updates von Microsoft nur noch mit ...

Firewall
PfSense 2.5.0 benötigt doch kein AES-NI
Information von ChriBo vor 4 TagenFirewall2 Kommentare

Hallo, Wie sich einige hier erinnern werden hat Jim Thompson in diesem Aritkel beschrieben, daß ab Version 2.5.0 ein ...

Heiß diskutierte Inhalte
Hardware
IT-Werkzeugkoffer bis 50,- EUR
gelöst Frage von departure69Hardware53 Kommentare

Hallo. Ich bin als IT-Systembetreuer einer Gemeinde zusätzlich auch der IT-Systembetreuer einer Grund- und Hauptschule. Dort muß ich jedoch ...

Netzwerke
Verteilung von Programmdaten außerhalb des internen Netzwerkes
Frage von mertaufmbergNetzwerke27 Kommentare

Guten Morgen liebe Administratoren, ich versuche zurzeit eine möglichst sichere und einfache Lösung zu suchen, um ein Programmverzeichnis über ...

Datenbanken
PHP Fatal error: Uncaught Error: Call to undefined function oci connect
Frage von PlanitecXDatenbanken19 Kommentare

Hallo Zusammen, ich sitze seit Tagen am Problem das ich keine PHP Anwendung mit Anbindung zu Oracle zum laufen ...

Hardware
PC im Selbstbau, Workstation, mittelklasse Gaming
gelöst Frage von MrRobot1997Hardware19 Kommentare

Hallöchen Leute, ich bin seit einigen Jahren leider nicht mehr wirklich im Bild, wenn es um die Hardware und ...