[asp] ip adres uitlezen, en na 2 punt vbcrlf

[TeeDee]

Hi,

ik heb nu onderstaande code (een stukje ervan)

code:

remote = Request.ServerVariables ("REMOTE_ADDR")
strMessage = Replace (remote, ".", vbCrLf)

Dat stukje roept iemands ip-adres op en zet ut ergens neer. Maar ik moet het zo krijgen dat ie pas na de 2e punt van het ip-adres afbreekt.

Op msdn staat wel een uitleg van de Replace function, alleen daar kan ik niet vinden hoe je dat moet doen dat ie na de 2e punt pas een vbcrlf doet.

Op deze manier zet ie na elke punt een vbcrlf.

Iemand een idee?

[Phenomenon]

mischien met de functie Left$ ???

[TeeDee]

Op dinsdag 27 november 2001 20:48 schreef Peter1978Thuis het volgende:
mischien met de functie Left$ ???

Volgens mij niet toch? Dan zit nog met het probleem dat iemand of 2 nummers of 3 nummers als eerste waarde heeft.

[Annie]

probeer het eens met het RegExp object.
of met een combinatie van Left/Mid en InStr.
of met Split.

opties genoeg.

[Mart!]

Met InStr() zoek je op de tweede punt, vervolgens hak je em met Left() en Mid() in tweeen...
Zoek maar op MSDN voor het gebruik van de functies
4 regels code 'should do the job'

edit:

Voor de zoveelste keer precies tegelijk
Split is trouwens ook een goeie!

[TeeDee]

thanks... kga ut ffies uitspitten.

ik weet iig nu wel waar ik mee zou kunnen doen...

maar ja... dat mot je ffies weten he...anders helpt zoeken op msdn ook nie zo gek veel.

[Annie]

Op dinsdag 27 november 2001 21:03 schreef Mart! het volgende:
Voor de zoveelste keer precies tegelijk

nee hoor, ik was eerder

[TeeDee]

Zoals in onderstaand stukkie heb ik dus voor split gekozen.

Alleen kan je daar geen vbcrlf in doen?

code:

<%
Dim MyString, MyArray, Msg
MyString = "192.168.1.1"
MyArray = Split(MyString, ".", -1, 1)
'weergeven
Msg = MyArray(0) & "." & MyArray(1) & "." &vbCrlf& MyArray(2) & "." & MyArray(3)
Response.Write Msg
%>

[TheMrH]

Waarschijnlijk wil je een <br /> ipv een vbCrLf. Kijk maar eens naar je source, daar staat ie wel in. Alleen is het HTML en geen plain text.

[TeeDee]

ik heb het nu wel.. (alleen iets anders opgelost )

code:

<%
Dim MyString, MyArray, Msg, Msg1
MyString = "192.168.1.1"
MyArray = Split(MyString, ".", -1, 1)
'weergeven
Msg = MyArray(0) & "." & MyArray(1) & "." 
Msg1 = MyArray(2) & "." & MyArray(3)
Response.Write Msg "<br>"
Response.write Msg1
%>

zo werkt ie ook... thanks iig (alweer )