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, 9922 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
Windows Server
Domänencontroller trennen
Frage von Akit57Windows Server14 Kommentare

Hallo, ich hoffe das mir hier jemand meine Frage trotz der spärlichen Informationen die ich geben kann beantworten kann: ...

Batch & Shell
String herausfiltern
gelöst Frage von goodbytesBatch & Shell5 Kommentare

Hallo, ich möchte gerne bei vielen Maschinen per Loginscript den FQDN ermitteln. Dafür wollte ich ihn aus der Rückgabe ...

Entwicklung

Daten zusammenfassen, dann bearbeiten und wieder trennen

gelöst Frage von Max16hrEntwicklung8 Kommentare

Hallo allerseits! Ich bin hier in folgender Situation: Es sollen einige hundert Skripte ausgeführt werden. Jedes dieser Skripte benötigt ...

Microsoft Office

Adressen Trennen In Excel

gelöst Frage von NerofuMicrosoft Office7 Kommentare

Hallo zusammen! Ich möchte gerne Hausnummern von Straßen trennen. Allerding s ist der Datensatz den ich bekommen habe relativ ...

Neue Wissensbeiträge
Peripheriegeräte
Unterschrank für HP Drucker
Tipp von NixVerstehen vor 8 StundenPeripheriegeräte1 Kommentar

Als kurzen Freitags-Tipp möchte ich gerne meinen neuen Drucker-Unterschrank Modell Amica KS 15423W vorstellen. Das Gerät eignet sich hervorragend ...

Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 1 TagWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 1 TagWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 3 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Heiß diskutierte Inhalte
Humor (lol)
Freitagsfrage: Was tun, wenn der Admin der DAU ist?
Frage von VoiperHumor (lol)29 Kommentare

Moin Zusammen, Eine nicht ganz ernst gemeinte Frage an die Außendienstler unter uns. Zusammenfassung: Ein Inhouse Admin ruft bei ...

Windows Server
W2K16 Essentials: keine Namensauflösung nach der Einrichtung DNS + AD DS
Frage von Ben-WittWindows Server22 Kommentare

Ich versuche bereits seit ca. 4 Wochen einen Server 2016 "Essentials" richtig zu installieren. An diesem Server möchte ich ...

Exchange Server
Exchange Backup 10 Jahre Aufbewahrung
Frage von arccosExchange Server20 Kommentare

Hallo zusammen. Aktuell beschäftigen mich ein paar Fragen zum Thema Office365/ Exchange. 1.10 Jahre Aufbewahrungspflicht sicherstellen 2.Kann man als ...

Windows Netzwerk
LTE Modul - Kein Internet trotz Verbindung
Frage von killtecWindows Netzwerk18 Kommentare

Hallo, ich habe hier ein Dell 7390 2-in-1 mit W10 Pro wo ich nachträglich eine LTE-Karte (Original Dell DW5811e ...