Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: happyman

happyman (Level 1) - Jetzt verbinden

30.08.2007, aktualisiert 14:17 Uhr, 9568 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

Mit freundlichen Grüßen happyman
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
C und C++
gelöst Anzahl der Buchstaben in einem String Element Array C++ (3)

Frage von Protected zum Thema C und C ...

LAN, WAN, Wireless
Notebook LAN WLAN LTE trennen (2)

Frage von HansB3rt zum Thema LAN, WAN, Wireless ...

Netzwerkmanagement
gelöst Gäste WLAN vom eigenen Netz trennen mit einem eigenen Port am Router? (9)

Frage von M.Marz zum Thema Netzwerkmanagement ...

Windows Server
Exchange 2016 und DC 2012 R2 trennen (8)

Frage von Andreas377 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (14)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...