Hej, kan någon vänlig tala om för mig hur jag ska få ut text mellan två strängar?

Jag har två strängar, en i början o en i slutet, allt mellan vill jag ha ut.


"_9447c8c8f5134aca6ab9740575b227b2"

jfhowiefhwofiauifheiurg
egegege
aerge
ag
egeag
egg

"_9447c8c8f5134aca6ab9740575b227b2"

hur gör jag?

/B

Du skulle kunna använda dig av Replace, i stil med


strEdit = theString ' Sparar en kopia av strängen så att orginalet är kvar

theString = Replace(theString, "_9447c8c8f5134aca6ab9740575b227b2", "") ' Ersätter strängen med ""

du får fixa variabeldeklarationen själv :p

Nu vet ja inte om vi förstår varann.

Det finns text ovanför detta oxå. så replace går inte.

mellan "=_9447c8c8f5134aca6ab9740575b227b2" finns det jag vill ha ut.

=_9447c8c8f5134aca6ab9740575b227b2
blaergfseargeg
aegagaegaegaerg
aergaeg
aergagraegeagaeg
=_9447c8c8f5134aca6ab9740575b227b2

okej

då kan du använda dig av det trevliga kommandot Split

arrString = Split(theString, "=_9447c8c8f5134aca6ab9740575b227b2", -1, 1)

arrString är nu en array... lek runt lite med det, jag skulle tro att det du vill ha ligger i arrString(1)

det som ligger före finns i arrString(0) och skräpet efter ligger i arrString(2)

Man tackar, det låg visserligen i 3:an :)


kan du förklara den?

arrString = Split(theString, "=_9447c8c8f5134aca6ab9740575b227b2", -1, 1)

/B

Ett annat sätt att lösa det är om inledningssträngen och avslutningssträngen alltid är 34 tecken
<code>
Option Explicit
Private Sub Command1_Click()
Dim testStr As String
testStr = "=_9447c8c8f5134aca6ab9740575b227b2 blaergfseargeg aegagaegaegaerg aergaeg aergagraegeagaeg =_9447c8c8f5134aca6ab9740575b227b2"
testStr = Left$(testStr, Len(testStr) - 34)
testStr = Right$(testStr, Len(testStr) - 34)
MsgBox = testStr
End Sub
</code>

Nu var det ju tyvärr inte så :(

Direkt från dokumentationen "Windows Scripd v 5.6 Documentation"

Split(expression[, delimiter[, count[, compare]]])

Arguments

expression
Required. String expression containing substrings and delimiters. If expression is a zero-length string, Split returns an empty array, that is, an array with no elements and no data.

delimiter
Optional. String character used to identify substring limits. If omitted, the space character (" ") is assumed to be the delimiter. If delimiter is a zero-length string, a single-element array containing the entire expression string is returned.

count
Optional. Number of substrings to be returned; -1 indicates that all substrings are returned.

compare
Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.



Settings
The compare argument can have the following values:

Constant Value Description
vbBinaryCompare 0 Perform a binary comparison.
vbTextCompare 1 Perform a textual comparison.



Remarks
The following example uses the Split function to return an array from a string. The function performs a textual comparison of the delimiter, and returns all of the substrings.


Det står lite här också: http://vbtechniques.com/content.asp?a=co&cID=626
..och då på ett något lättare sätt (du får scrolla ner lite)

Jag brukar använda den här funktionen:

<code>
Public Function Between(strExpression As String, strFirst As String, strLast As String) As String
On Error Resume Next
Dim lngFirstOne As Long
Dim lngSecondOne As Long
Dim lngLength As Long
Dim strTemp As String

lngFirstOne = InStr(1, strExpression, strFirst)
lngSecondOne = InStr(lngFirstOne + 1, strExpression, strLast)

If lngFirstOne = -1 Then Exit Function
If lngSecondOne = -1 Then Exit Function

lngFirstOne = lngFirstOne + Len(strFirst) - 1
lngLength = lngSecondOne - lngFirstOne
strTemp = Mid$(strExpression, lngFirstOne, lngLength)
Between = Right$(strTemp, Len(strTemp) - 1)
End Function
</code>

/Micke

Visserligen så KAN det va så att dom är samma längd men det är inte att ta förgivet.

Dessutom så är inte dessa start/stop-strängar i början och slutet.
Dom ligger mitt i.

Davids variant funkade bäst, dock inte helt bra.

det e ett jädrans meckande att få detta bra. trots att det ser så enkelt ut.

textmassan är inte riktigt konsekvent.:)


EDIT, såg inte Mickes inlägg, ska testa det!

/B

Är det så att strängen "=_9447c8c8f5134aca6ab9740575b227b2 blaergfseargeg aegagaegaegaerg aergaeg aergagraegeagaeg =_9447c8c8f5134aca6ab9740575b227b2" existerar på fler ställen i strängen så kan du med hjälp av UBound(arrArrayen) ta reda på hur många värden som existerar i Arrayen och på så sätt plocka ut det sista värdet...

David, ditt sätt är fortfarande det som funkat bäst.

Med Ubound får jag rätt varje gång.

Nu blir det bara lite tecken kvar högst upp som måste väck, sen är detta klart.

Efter formatering enligt David ovan så blir det:

***************************************************************
här blir det lite kvar som ska bort, denna rad är högst upp, nedan en tom rad.

JHIJHIJHKJHKJHIUHIHOIUG
AFFSASFASFF
AFAFSASFAFASF
AFASFSFSF 'sista raden

*********************************************************

hur formaterar ja bort den översta? tom rad överst gör inget.

/B

Du kan plocka bort det första tecknet så här:

theString = Right(theString, len(theString)-1)

Ursäkta nu en lång sträng men jag har tröttnat, får INTE ut det jag vill:
allt under *** är ett mail, innehåller två bilagor.
Jag vill få ut bilagorna. dessa ska kodas av men det fixar jag, bara jag får kod för att formatera detta.
Jag har suttit i flera dagar nu utan att lyckas speciellt bra, önskar nu lite hjälp.
Är ganska trött i skallen nu så ha överseende.

observera att mailen kan innehålla flera bilagor.

EDIT!!!!! Jag skriver oxå att själva bilagan startar under "filename=xxxx.xxx"

så endast den obegripliga texten e bilaga.

*************************************************************

Received: from xxxxx.se ([aaa.aaa.aaa.aaa])
xxxxxxxxxxxxxxxxxxxxxxxxxxxxwith ESMTP id BIA74420
for <xxxxx@xxx.xx>; Wed, 14 Jul 2004 10:02:40 +0200
Received: from postgate.xxxxx.se ([126.250.1.2]) by ns2.xxxxx.se with SMTP id <119338>; Wed, 14 Jul 2004 10:02:35 +0200
Received: From xxxxx.adm.xxxxx.se ([126.2.4.177]) by postgate.xxxxx.se (WebShield SMTP v4.5 MR1a P0803.345);
id 1089792033921; Wed, 14 Jul 2004 10:00:33 +0200
Content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="----_=_NextPart_001_01C46978.EC4BBFAE"
Subject: testfiler
X-MimeOLE: Produced By Microsoft Exchange V6.5.6944.0
Date: Wed, 14 Jul 2004 10:02:35 +0200
Message-ID: <279478572171C449AB0D99FEFA45BDD77CC9F4@xxxxx.adm.xxxxx.se>
X-MS-Has-Attach: yes
X-MS-TNEF-Correlator:
Thread-Topic: testfiler
Thread-Index: AcRpeOtDqDwChjSnSCusKg0hnHCgCA==
From: "xxxxxxxxx, xxxxx" <xxxxx.xxxxxxxxx@adm.xxxxx.se>
To: <xxxxx@xxx.xx>

This is a multi-part message in MIME format.

------_=_NextPart_001_01C46978.EC4BBFAE
Content-Type: multipart/alternative;
boundary="----_=_NextPart_002_01C46978.EC4BBFAE"


------_=_NextPart_002_01C46978.EC4BBFAE
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

blaaaa


------_=_NextPart_002_01C46978.EC4BBFAE
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html>

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">


<meta name=3DGenerator content=3D"Microsoft Word 10 (filtered)">

<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.E-postmall17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:595.3pt 841.9pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;}
div.Section1
{page:Section1;}
-->
</style>

</head>

<body lang=3DSV link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>blaaaa</span></font></p>

</div>

</body>

</html>
=00
------_=_NextPart_002_01C46978.EC4BBFAE--

------_=_NextPart_001_01C46978.EC4BBFAE
Content-Type: audio/wav;
name="type.wav"
Content-Transfer-Encoding: base64
Content-Description: type.wav
Content-Disposition: attachment;
filename="type.wav"

UklGRl4RAABXQVZFZm10IBAAAAABAAEAESsAABErAAABAAgAZGF0YTkRAACAgICAgICAgICAgICA
gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIB+fHh5e3x8hJGOjI6LgX13kIpvX1xh
cHFvjY+VlJyxpGhwiJ+da0FEcX58X1+DmZyViYmDjZiVj5KhqZ+IcV9TRjgxOE9rgYuTo7vT2cuw
mY2Fdlw/Mj5adX97dXeBiIN3b3iRrLy9ta2mm4drUUI/Q0ZIT2F5kqGpr7e+va2Ue25ucW9pZmt2
fnppV1BZanqFj56yxMq/qpWHfG9eTUNETlhgaHWIm6epo52Zl5GIgH+FjpCHeGlgW1VOSlBjfpal
q6+zt7WolYJ1bmhgVVBTXmx2fICGjZKQi4eKkpugn5yYkod2YU9HSVBZYm1+kaGqqqako6CYintx
bGtqZ2VnbXV4dnJxdn6GjZSdqK+vppeGeGtgVU5PV2NveH+HkZqgn5uXlZOOh354d3h5dnBqZ2Zm
ZmZsd4eXo6mrq6efkoJzaWRiYF9hZm53fYGFipCUlZOQj5CQj4uGgX14cGVcWFpgaXN+i5ijqKag
mZOMhHtzbmxsbGtrbHB2en1/goeMkJKUlpiZl5CGe3FoYVxZXGRve4WMkpeampiTjouIhYB7dnNy
cW9tbG5xdHd7f4aOlpyenpuXj4V5bmZjYmRnbHN6gYaJi42PkZGQjoyKiIWAenZzcG1qaGlscnmA
iJCXnZ+dl5CJgXpzbmtsbnByc3Z5fYCDhYiMj5GSkY+NioaAenNuamhmZ2txeYKKkJSXl5aSjIeC
f3x5dnRzcnJycnN1eX2BhYmNkZOUk5CMiIJ7dG5paGhrb3R7gYeMjo6Ojo2MioeFg4F+enZzcXBv
cHF0eX6DiIyQk5WUko2HgXt2cW5tbnB0d3p+gYOGh4mKi42NjYuIhYF9eHRxb25vcHN3fIKHjI+S
kpKPi4aBfXl3dXR0dHV2d3l6fH+DhomMjo+PjYuHg356dnJwbm9xdHd8gIWKjI6OjYuJh4SBf317
enh2dHR0dXZ5fICEiIuNj4+Oi4iEgHt4dHJxcXJ1eHx/goWHiYmJiYmIiIaEgn98eXZ0cnJzdXh7
f4OHioyNjYyLiIWBfXp3dXV0dXZ4enx+gIKEhoiJioqKiYeEgX16d3Vzc3N1eHt+gYSHiouLi4mH
hYKAfXt6eHh3d3d4eXt8f4GEh4mLi4uKiIWCfnt4dnV0dXZ4en2AgoWHiImJiIeGhIOBf317enh3
dnZ3eHp9gIOGiIqLiomHhYKAfXp4d3Z2d3h6fH6AgoOFhoeHh4eGhYSCgH17eXd2dnZ4en1/goWH
iImJiIeFg4F/fXt6eXh4eXl6fH1/gYKEhoeIiIiHhYOBfnt5eHd3d3h6fH6Bg4SGh4eHhoWEg4F/
fnx7enl5eXl6e31/gYOFh4iIiIeFg4F/fXt5eHh4eXp8lJSTkIyIhH97eHZ1dXZ3eXp8fX5/gIGA
gH9+fn5/gIKBgHx+gYOEjZuXkpCIe3ZxkpBzWEM7TWB2p6ehjIywvZOfpaeUVR0TPFRsYGSClqe5
wMKpnZiNgXp9goF9eXZ2eHp4cWVXS0dOYHqXr7u7rZd/alxVVFdaXWNugZy82/P89Ny4j2dGLyEb
Gx8nM0Rac4yjs72/vLSqoZmUkZCPjouGfXNnXFVTVmBseoeRl5qbm5mVi3xoUj0wLztUdJa0y9fb
2dLHuaeRdlk/LCMmNEpieIiRlJORjo2MjIqJh4eIio6QkI2Hf3ZuaGZnbHaCkJ+ss7StnolyW0g6
Mi8zO0lbc4+sx9vl49bBqI96amFbWFZWWF5ncn6IjYyHfnZxcXR7goeKiYeDf3x7enp8gIaOmKKs
srSwppiGcVxJOCslJzFDWnSOpLS/w8O/uK+ilIR1amRjaHB5gIKAfHZxbm5wc3Z4enx/g4eLjImD
enFraGt0gI6cqbK4ubauoI55Y08+NDA0P05gdIiaqbS4t7Cklod7c25tbnF0eHyBhoqOj42JhH57
ent+gYF/enJrZGBfYGRpcHiDkJ6suL/Au6+gjnxsXlROTE5VXmp4hI6UlpSPiYJ8d3RycnV5f4aN
kpWVk4+LiYeIiYqKiIWBfHdxamNbU01LTlZkdomcrLi/wsC6saOUgnFhVlBQVV5pdH6GjI6PjYmD
fHVvbGtuc3mAhouOkJKSkpKQj42Mi4uLioiEfHNpYFhUU1VaYmx3hJGeqK+yr6idkIN4cGpnZ2lt
c3qBiI6RkY+Kg313c3Bvb3BxcnR2eXx+gIKEhoqPlJqfoaGemZGIfXJoXlZRUFRcZ3SBjZacnp2Z
k4yEfHVvbGxwd4CKkpibnJmVj4mCe3RuaWVkZWdqbXBydHZ4fIGHjpSan6KkpaOel46Dd2xjXVpa
XWNqcnqCiY+Sko+Jg3x3dHN0d3yBhouQlJeYl5SPiYN9eHVzcXBvbWxqampsbnJ2e4GIj5adoqSj
n5iQhn11bmhlZWdscnqCiY6RkY6Jg3x2cGxqaWtvdHyDipCUlpaVkpCNioiFgn99e3l3dXJwbWpp
aWtwdnyDio+TlpaVko6Ignx3dHN1eH2DiIyPkJCNiYR9dW5oZGJjZmpwdnyCh4yRlJaXl5aUkpCO
i4iEf3p0b2pnZmZoa290eoCGi4+RkI6KhYB8enh5e36Ch4uQk5WUkY2Gf3hxbGhmZmZlZGhtc3iF
lZianpyVk5Grq5iCbV1cW198endsb42Zf5GfraqDWklXWFtKSmJ2iZ2ps6mqr62noZ6ZjoFzaGJi
Zm52foKBfHNoXVVSU1ljb3yIk5yjp6ino5yTiX91bWZiYWRqdIKRobC7wL60o411X0w/ODg9RlFc
Z3J9iJSgq7S4uLKml4V1aWJhZm94gYiLi4mHhYWGh4eFgXpyamVjZWt1gIyVm56cloyBdWpgWVVV
WF9odYOSoK24v8LBu7Gkk4FvXk9GQkNKVmRxfYaKi4iFgX9+f4CCgoKBgIGEiI6Vm56empKJgHdy
cHJ2fIKHiYiGgn15dXJva2diXVhWVltjbnyLm6izvMDBv7mvo5WHeGxhWlZVVlpgaHB4f4WJi4qF
f3ZuZ2NiZm96h5Sfp6urqKOblIyEfXZvamZkZmt0fomSmJqXj4V5bWNcWFdYXGJpcnuGkJulrLGz
sKqil4t/dGtlYV9gY2hudXyDiY6QkI+MiIR/e3h1cnFwcXR4fIGFiIiHg356dnV3e4KJkZecn6Ce
nJeRioJ5b2RbU09OUllkcX6JkpeamZaSjYiEgH16eXh5fICFi5GVl5iWko2HgXt1cGxqaGlqbXF1
eXx+f399e3l3dnZ2eHt+g4iPlp6mrLGyr6idkIFzZVpSTUpLTlNbZG56hZCYnZ+emZKKgnx4dnd6
foOIjJCTlJSTkY6Jg313cm1ramtucXR3eXp7e3t7enp5eXl6fICEio+UmJucm5iVkYyGgXt1b2pm
ZGRmanF4f4aLjo+OjImFgX56d3VzcXFzd3uBh42QkpKPjIeDf318fH1/goSHiYuLi4iFf3lyamRf
XV1gZWx0foePl5ygoqGemJKKgnp0cG5vcXV5foOHio2PkI+NiYN9dW5oY2FhY2ZrcXd9goeMkJOV
lpaVkpCNioiIiImKi4qJhoJ8dnBqZWFfXV5gY2lweYGKkZebnJyZlZGMh4OAfXx7fH6BhIaIiYmH
hIB8d3Nwbm1tbm9xc3Z5fH+ChYeHh4eFhISEhYeJjI6QkZCPjYuIhIB7dnBrZ2RjZGdscnmAhoyQ
k5SUko+KhX96dHFubnBzeX+Fi5CTlZWUko6JhH95dXFvbm9ydXh7fn+Af359fHp5eXl6e31/goaJ
jZCTk5ORjomFgHx5d3Z1dXZ3eXt9gIKEhYSDgH15dnJwb25vcnV4fYKHjJCUl5mZmJWSjYmFgn98
enh3dnV0c3JxcG9ubW1ub3J1eoCGjJKWmZqamJWSjYiDf3p3dHN0dXh8f4KFhoaEgn97eHRxb21t
bW9ydXp/hYqOkpSVlZORjouIhYKAfnx7enp7fHx9fHx6eHZ0c3JycnR2eXyAhIiMj5GSkY+MiIN/
e3h2dXZ4en2Ag4aJi4yLioiEgHx3dHFvb3BydHd6fH+Bg4SGhoeGhoWEhISEhYWGh4eHhoWDgoB+
fHp5eHd3d3d5enx+gIGCgoF/fnx6eXh3eHl6fYCEiIyQlJaXl5SRjYiCfXh0cG5sa2xtb3J1eHt9
f3+Af39/f4CChIaIi42PkJCQj46LiISAe3h0cnFxcnR2eHt9foCAgYB/fnx7eXh3eHl7foGFiYyP
kZKTk5GPjIiEgHt3dHFwcHBxc3V2eHp7fX5/gICBgYKCg4SFh4iJioqKiIaEgn99fHp6eXp7fH6A
gYOEhYSDgn99end1dHR0dXd5fH+ChYeJi4uLiomHhYOBgH9/f39/f4CAgICAgH9+fXt6eHd3d3d4
enx+f4GCg4SEhISDg4KBgICAgYKEhoiKi4yMioiGgn97d3NvbWtra21wdHh8gISHiYuMjIyLiomH
hoWEg4ODg4ODg4KBf358enl3dnZ2dnZ3eHl7fH5/gIGBgoKBgYKCg4SFh4iJiouLi4qJiIWDf3x4
dXNxcG9wcXN1eHp9gIKEhoeHh4eGhYSEhISEhIWFhYWEg4KBf358e3l5eHh5enx9f4CBgoKCgYB+
fXx6enl6e3x+gIKFh4qLjIyLioiGg4F+fHp5eHd3eHl6fH5/gIGBgYB/fn19fHx8fH1+f4CChIWG
h4eHh4aFhIOCgoGBgICAgIB/fn18e3l4dnV0dHR1d3l8f4KFh4mLjI2NjIuJh4WDgYB/fn19fX19
fXx8fHt6enl5eHh4eXp7fH5/gYOEhYaGhoaGhoaGhYWFhISEhIODgoGAf316eHZ0c3JycnN1d3p9
gIOGiIqMjIyLioiGhIKAf35+fX1+fn9/gICAf39+fXx7enp6ent8fX5/gICBgoKCgoKCgYGBgYGC
g4OEhYWFhYWEg4KAfn17enl4d3d4eXp8fX+AgYKCg4OCgoGBgIB/f3+AgYGCg4SFhYWFhIOCgYB/
fn18fHt7e3t7e3t7e3t6enp7fH1+gIGDhYeIioqLi4qJh4WDgX99e3p5eXl5eXp7fHx9fX5+fX19
fHx8fX1+f4GChIWGiIiJiYmIh4aEgoF/fn18e3t6enp6enp5eXl6enp7e3x+f4GDhYeIiYqKiomI
h4WDgX99fHt6enp6e3x9fX5/f39/fn5+fX19fX1+fn+AgYKDg4SEhISEhIODgoKCgYGBgICAf39+
fX18e3t6enp6ent8fX+AgYKDhISFhISDg4KBgH9/f39/gIGBgoODg4OCgoGAfn18e3p5eXl6ent8
fX5/gICBgYKCgoODg4SEhYWGhoaGhYSDgoB+fXt6eXh4eHh4eXp7fX5/gIGBgoKCgoKBgYKCgoOD
hISFhYaFhYWEgoGAfnx7enl4eHh4eHl6e3x9fn+AgYGCg4OEhYWGhoaGhoaFhIOCgX9+fXt6enl5
enp7fH19fn9/gICAgIB/f39/f4CAgYGCg4SEhYWFhISDgoGAf39+fXx8fHx8fHx9fX19fX19fn5+
f3+AgIGCg4OEhISEhIODgoGAf39+fn5+fn5/f4CAgIGAgH9/fn18e3t7e3t8fH1/gIGCg4SFhYWF
hYWEg4OCgoGBgIB/f359fXx8e3t7enp7e3t8fX5/gIGCgoODhISEhIODg4OCgoKCgoKCgoGBgIB/
fn18e3p5eXl5eXp7fH1+gIGCg4SEhYWFhYWFhISDg4OCgoGAgH9+fXx8e3p6enp6e3x8fX5/gIGB
goKCgoKCgoGBgYGBgYKCgoKDg4OCgoGAgH9+fXx7e3p6e3t7fH1+f4CAgYGCgoKCgoKCgoKCgoKC
goKBgYGAgAA=

------_=_NextPart_001_01C46978.EC4BBFAE
Content-Type: audio/wav;
name="online.wav"
Content-Transfer-Encoding: base64
Content-Description: online.wav
Content-Disposition: attachment;
filename="online.wav"

UklGRggYAABXQVZFZm10IBAAAAABAAEAQB8AAIA+AAACABAAZGF0YeQXAAD7/wMA9/8EAPL/4P+O
/xf/O/6R/ff8Cf3T/AL9Bv20/kkBLwSMBbwFFgXwA48H8wwCEDUPRQ2fDY0UsRqqFvIEOfOU6rTm
K9gsyL7Bd8Iwyk/dBgBFH7Io6ycXMXlFO0tlNNwaThXjETABp/JW9HT68PTT6KbsjPtT9HDdpsyr
0APTQMHntkXI/etxBLYW7i/iT2RcNFU8VYFbt1bRNnwMre4s4DzK6a9coJOfLq1Ku3PW8foMFOsU
ORJ+IUc28jkTJEAStBTpH5IkkybjJiIjixt6DZ8JPPwm24m1lqMIqT+zqbGerJzFg+8aHXM8YE4w
XSVjTGAZWdJLCCU98vHFR7YcvM60paJCnX22Zt56AmoXDyeEM1I3+j7URJ8/5ibrBnb5pAIuBtD2
ROKm2+npmvfj+ezv8+Ks1yzZGeP/6O3oMt4Y4wgAwiODOMo2nzTGP9ZPN0vpMpgRcvK738bQ6MTj
t26qFanIvgTi8v1pBq4FwhQ2LylAojpPJqoVOhMTFXwT2Q0t/jDyofLrADUNCwNl6HvYl+B17Gnr
3th9zNvVkOt9A9QSaRn+HPUnOzuJTyRPgjPSFD8FZQNY+B3Yu7QWp7Cux8C30R7c6Of49+8SYjQA
SjdFCTLNJoEq/C5oG8761+Ir3o3mieup6KrhPt5Q4iXzbALdAKLx/eT07ncFIxAECeYB1An/Hywz
Djc3MH0iGRaoEMQMef1p30O+tbHyvZTLVM6Oy1bXOvffG5g0Fz9JQNc8wz3TPWo2FR6R+MXd5dig
3qva6stKwlbOD+dm+lADuQIjAigHsxE+HKIcNg4lAdwFahfKI1wcmQzeB3kPBhQCDMr3iuGA09rN
09EV1XjQ5svn1vf1ARlDLI8tfTFePk9LVUrqNb0ZMf+r6y/gONhtyga6BbSewpLgpPZq/Oj+NgwU
IvYxeDA1JCYYhRB1EDoSNg5MAW7zcfE6/mYIfwDF7nTinuXm7IDqa+Bf2E7ad+dd/PcOYxoFHqsk
oTYjRy5GezCVFTYFSf0i7/HXvsBPs6q1Y8MR1rHmZ/Gq/PYSCy/lQGw+RC49JNUjVSEyE1j9vupE
42rlieqU7sHqVeTf5eHxGP/R/hPyXum78If/UwmvCXEIlQ/VHBQroTN9MK0iuxMFC3oGwvnt3n7E
CLqvwALMINKw1kXksvsZF8cvHz2ePrA49jNUMxYtWReQ+CfiaNv93XPbf9On0OTXoudH+GMDQgYo
BLkDswt0FjwXWg3QA0gHBRXyHaAaQhIWDR4NTg3XBiP59uWM1NXNANLA1qfVKNTo3vD5chZIKEQv
ojOzOh5AJD0oL1UYW/3J6Ffekditz9bC2L5MzMvjm/ai/+UE9g7eHK8mzyg7IpQWNg07CykOow2k
A+/3v/bn/i0Fs/9d8n/ok+ai5/XmP+Ne3uLeauh1+/MPlhu/HyMmYTPsPvE8LytXFS0Eu/Y46aXY
Gsj0vBS8zcea27TsNvfyAdYTXipWOF02aisSItccnBdEDZD+l/Ae53Hmt+zc8crv5umN6WLy1PsJ
+wvzn+2G8dz7vQT+CYoNXxLuGgYnvC8QLlohoxEwCJUBdfQV33/KLMGTxETNVdZn4Ivtz/9IFvgr
qznhOtkzBi6PKughOA8u9wXlQd0u29zYz9Y92H3fyuvB+FsEkQrSDLQPMxRzGA4XIxFcCwUJygr6
C/8KzwaOAMT8Avsa+TzzRelY4tzhWOZI6j7rae/7+tMJJhUYG1YepiHnIXUcFxPZB6T+vvV97Xfo
muY76cTqf+0v89v6+wMHBoIFxwU/B0kKMwYoABb96//iBtoIMwrnDWcWIR19GEcOIgFB9lLqmNli
y1rCbMPUyrvWDuuOA98fATmATbJcwmBbWl9G/SlbCWXmTMUnpRuOkoaFjy2m2sEw4pcHlTLvWdxx
9nj4ccxj2kxcK2cEhN0Mv22oDJ2rnjuq1b0a01nuCg6JKyxA9kTYQ7g/kTcTKC8OT/Wz4R7XTdOX
0ULW295M7uoAsxBpHXohoSFiHa0ULwtI/cjvNuKe2OTYjd426L/vWfkYCuwcyyz4MKwu2ysqJ3ge
nAzI9wXlstX7ymnDPMJuxjvPbd0V8acJTiCLMSQ9ukXxS0hKRz5oKDEPe/fK4U/Nu7g9qgKmVa4B
wEnUGOw7BiUjGD59UKpa/FmmUJE+2CU5DCHwh9RFu1mrs6oBs0/BmtHx504GISM3OdJCO0TxQCw2
jiXBDRH1dt/3zhHId8gw0ebez+/5BAQa5SxkNy83tC7rHyYPJPsk5GjN+rx4uQ3Boc9d4XX3qRPi
MIhI31SrVotPgz9rJxkJxelHy+2wMJ/8mSajjbSCy3Dn3gh0LfJKA12ZYk5fslWRQpAnEgb/5CjK
YrZCrMSooa1hu9zPneoABSsdHzDROxhCZ0EDPOAv9BwcCA/12ujX33rXD9Kj0p3c1ulh9aH+BQfh
EBwY3RoTGfkTbQ0NBY39vPdp87fv0uyA7in1ov6oBt8LoBDxFdsaAhsIFWoKrP7S9CbrTeF113LR
GNPz2pzn8/VCBnUYiylHOENBFES4Pjkw2xySBlHwnNh0wPWu7qd5rUK6UcuR4lb/HiAEPYxR51ww
XjBXW0bRLfoPDu+P0Fq3LKi5o1Sox7Uzys3lJwUhI9Q6fEiKTQdLuEFuMDYXcfsV43TSvMhoxLLG
FdE545P4KQ1PHl0q5i+OLWAljhj2B3n02uB/05fOOtFK2Pvi4fNXCdMfDDE/OsU8ljghL+Qe9Aik
8N/Y2sZsu5i3ULtyxfTWTO3eBkcgXTU6RIJKSkosRFI3syPeCUrwS9u1y2zAdrjht03AQ9DI41v3
JQu8HbEt6ThFPv49Azd8KpkaOwqV+q3qotsc0GHLf83r05Dc7+Zx9C8EvBOaH7QleSfmJfshXhqX
DgYBHPTA6q/kHeJ74xPoHfDg+VYF7hALGSMcmBmoFDcOXAQX9zDoft052S/aGt8v56T0KAbrGNcp
hTWNO0E6BDLmI2oQofnQ4BvKfLlGsWSyGrsWy6Php/06HNk3U0w7V1lZh1PORAQtPg4O7pjRaLte
rIql2agqttbL1uYKBDgg/zYVRupMSUz4Q+AyUhu5AVrrJdplzfjFHsXXzInbd+2j/yQPyxtqJPsn
ECbsHckRogNV9uvrtOTZ4dLiMujX8WH+PAyAF5QefyEuIRQe4hW2CAP5zeqN4C/ZotTY08vYh+Ol
8XEB/RAVHyQq/DC+M74xTypWHeQMGPyO7I7eENIKydfFgcny0tLf5+6b/6ARLiNhMQw6Uzw4OV4x
6yRJFMQACu1C23vNJ8XmwsLGuc+M3cLvdQRCGKcnyDEdN6I3/DFsJSIUigGZ8Hbiw9fm0ezRL9id
423yYgLcEAQcviLLJM8hdhmPDET91e624xDdGtvo3SfmvfPuBD0WOyRPLTUxqC+OJ6YYxARL73jb
a8sHwb+9acKjzkDh2PijEsgqcz3TSOZMR0k9PakobQ4o82TaZsb3t9awq7KlvYvQD+hHASkZfi3d
PE5FFUahPlIwoB3qCCL1seP81Q3Nu8lczfzWYeSa8vj/vwwVGDwg/CJLIGga8xLJCtYBGvlJ8ivu
Lu377kXzEfnb/g0EoAibDL8OuA2cCe0Dcf5I+Rj0++4764bqL+2Q8jf5gAB7CPkQLBkNH3ghKSCW
G2QUhgrG/vfxVuV62s7SHtB90h7ZSOPP8PIBlRSBJQcyUjkKPGo5kDBYIXsNMfik4+vRmsQXvY+8
CMN40ITj5fmiEK4klDQHPwZDjD9FNOIiBw74+OrlKNYFy/vFm8ib0srhLfOIBKYU8yGHKrQsWCi0
HloRTgKy87PnoN8P3LXd9ORH8RkAPw7gGTki5iZWJnIf7hL/ArHyzuPM1wDQnM3F0TTc6uuj/r4R
ISO7MH85HzzhN/0sWRxkCKvzv+BQ0T3G2MBBwh/LDton7CH/jxGbImwwsDhUOqw1NywYH20P0/7m
7jnh79Yu0a/QBdXf3OLmm/KV/3cMSRdzHvAhZCJLIIYb/hOACnQAjPeQ8JzrnOi555vpIO6T9Lb7
dgJXCLEMSg/mD10OrwruBF3+f/hq9CXyL/E88iH2/PxLBe8MCBNDF2EZdRirE2ALcQBp9MboBN+W
2B3WLdgK37jqU/qZCz0cJSocNEE5cjgKMR8jYRBs+/Pm9dTBxgu+d7z4ws/QyeOJ+dgPsSSnNZ9A
SEQzQOU0ryP/Dpf5ueUN1R3J3sNVxsjPE97N7nMAjxEfIPgpnS0kK4cjUxgYC039uPDP5hThVeBi
5E7sZvZDAXoL1hNOGboatheQELcGE/wE8nnpE+Mn4PHhc+hu8vf91Qk5FfUeiyWqJxAlIx6xE/AG
S/lP7BThitjb0wHUKdk44rztqfpSCMYVTSFFKcgs9StdJ4Mf1BTeB/D5qeyV4bLZOtVv1HfXWN6O
6Pz0bwJhD5waHCNcKCIq1CdEIQEXrAof/kbyvedK32PaItpM3uXlqe+4+iIGkBC9GIcdbh5aG9QU
GwxzAgP5tPCL6sfnD+ks7vD19f4VCFAQsRbtGfkYlxOsCtr/jfT26TLhxNsZ27TfFOnz9d8EHxTW
IUIs+zEbMgIsAiCbDxf9seoQ2s/MwsSYw9LJUtZG5836Ew8ZIoYxWTtNPjI6yy9yIBAOiPrj5zzY
Xc2pyFzK3NHa3b3s//znDMgazCSzKV8pjCR7HAkSHQYh+uXv9Oi05drl6uhu7rr1q/0YBfwKoA6Z
D/ENWQqdBUsA0/rw9b/yB/K+8zT3w/sfAfgGoQwOEWITQhPdEKwMAAcuAKf4QfEU6+TmK+Xx5TTp
tu4a9vP+dQizEYEZ9R7GIdEh7R6+GGgP/gP295fsj+Kt2vvVdNWD2bPhHu2t+hsJChcFI7Ur+y8d
Lx4prx4YEcYBJ/LT42/YhdH/z+fTetyN6Ov2KQaRFDYggSfFKS0nXSAeFo4JRPwa8LDmE+HC36ri
N+lh8t/8XwdnEJoWBBl2F4USDgsLAo348+++6QjnO+j37Hz06P0pCPcRyRlRHtYeUBtFFHgK9f4P
80ToAOBW2/Da2t6S5iTxZv0uCiEWvx/FJZUnRiVTH1MWBQuK/mHy8udB4Nnb69p13Tzjsuvr9cgA
IgsRFPQaTh/MIEUf2xoMFJcLaAJV+SHxV+qK5VTjAuRn5+DsxvOW+8kDkQvqER4W4Bc3F1EUcA8Z
CQEC+/ra9GDwGO4f7kTwLfRo+WT/RAULCvgMsw1ODAgJRASI/qD4mPNm8KbvefGh9bf7IgMKCzsS
hhcAGi0Z+xS7DSoESvlf7rzkvN2T2tXbbeG36tT2pwSwEicfRyj0LLAsgSffHbEQYAG08Y7jmtgW
0q7QbdTd3BTpsvcGBzkVlyDyJ6wqsChcInYYMAwP/9Ly6ehG4lnfMeCg5ArsVvUT//QHBA+aE18V
OxSEEOsKVAS+/SL4TfSc8hLzfPWK+bb+JgTdCBMMbg3eDHQKXQYDARr7g/UN8Uruh+3X7ibyN/eV
/YgEOwvrEPoUDRfvFpQUIBDoCX4CpvpA8/fsQOh/5Q3lOOfj64jyc/r2AnoLQBN7GWkdlh7hHGgY
jRHmCDz/ZPVX7BTldeAG39zguuU27bP2RAG8C+AUoxtlH9cf+hwNF6YOvwSY+nnxXOr25ankk+Z5
66/yMvvbA4cLPBFVFIsU9RHxDCoGnv6H9wry5O5i7pTwTvUL/MoDUQtpESwVDBbKE4YOzAaF/d3z
MevD5IXh+uEs5r/t+Pe8A5sPDxq8IaQlWCXUIIMYMA0ZAMvy8Obq3ZzYitfU2jDiyuxd+WUGahIv
HLQiWyUEJO0evBZtDEgBofac7f/mQuOu4j/lhOqj8Zz5fgGICCEOxxE1E2wSug+wC/QGHQKq/QX6
hPdc9pH27PcS+pv8J/9qASkDNARiBKQDKgJHAFT+ivwL+w763vmq+mX80f6pAbIEqgczCu4LjAzR
C64JPgbMAbn8dPd48lXususM65jsQPDG9cX8sATEDAsUnRm6HPwcRhqzFKcM1QJF+CjuruXI3yDd
Gt644pLq4PSKADwMnxaEHhMj3iPIIBoahxBCBbT5N+/o5pfh2N/e4VnnfO8o+R4DJgw7E5MXwBi8
Ft4R7gr8AjP7m/QF8PXtpe728WP3EP7pBN8KGQ8IEWEQJQ2qB60AO/lt8j3tV+ox6vnsdPIF+r0C
hgs/E+kYzBuDGxAYuxEmCUj/XPWP7NXl2eED4YDjE+ka8Z76iQTTDY4VBRurHUUd7xkXFHUM6wNT
+3jzE+216LbmNucG6rvuwPR4+0gCngjpDaQRhxOLE98Rwg54CmUFDQAD+7/2lvO88U/xTfKQ9Nv3
yvvq/7oD0gbuCOUJpwkzCLwFpQJv/5X8cPpE+Tz5bfq4/M//LgNDBpEIswlsCZsHTgTW/8T6xvWX
8d/uLO7C75bzYPmJAEUIlQ93FSgZJBo0GGQTDgz2Ai354O8Y6LvicOCL4Qnmc+3/9pcBDAwvFQMc
1R86ICcd8hZaDmMEOfr48JLpyOQQ44/kBenQ7wb4pwDACHYPFxQoFoYVbBJlDSwHkABk+mT1HvLo
8NPxq/Ts+Of92wIgByoKigsAC5wIvQT7/wn7l/ZF86Dx/fFt9Lz4av6/BO4KKBC5ExkV9RNJEGUK
7AK3+r7y7usU59nkm+Vl6d3vTPi/ASwLjxPzGZcdBB4iG0oVKg2tA9z50/CJ6cvkGeOY5Arp0u8U
+NYAJwkgEPsUOxe/FskT8Q7iCFkCGPzR9g7zJPEa8cHytfV7+Yv9YgGJBKYGjAdBB/gF/gOtAWL/
bP0Y/Jr7Afwy/fD+9gAAA88EGQaiBksGFwUmA64A5/0a+5T4m/Zz9Ur1MvYk+PX6c/5ZAlcGBwr9
DOMOfA+rDm0M2AgmBL3+IPnb84XvjuxU6xXs3+6K86z5sgDiB4cO6RNsF6AYTBd/E5MNJAb9/f/1
AO++6dvms+ZO6VfuNPUc/S4FigxSEt4V0BYdFQ8ROAtYBEr96Pb38Qnvcu4m8NDz2fiE/g8Etwja
CwoNJwxiCTUFQgBH+/z2B/Tr8uPz1vZd+9oAkAa5C5EPfxEmEXYOtQlrA138afVv7y7rOunu6Uft
6vIt+j8COAowEWAWHxkbGVoWMRE4CjoCFPqj8rjs6+ic593ocOzg8Yf4s/+eBpgMChGSEw0UjhJi
D/AKuQVGACj74PbH8wvys/Gs8sn0w/c9+9T+MQINBTIHgAjtCIAIUAeOBXUDRAE1/3b9Kvxv+1j7
2vva/Cb+jv/hAPEBkwKkAhkCAAGC/9j9Qfz/+k76Yvpd+zr90//mAhEG8AgaCzMM8gs4CgwHsQKV
/Ur4aPOG7y3tyOyO7mzyCPjT/hoGEg3rEuwWixiAF9UT5g1RBur9l/VL7t7o8uXl5bnoFe5X9bH9
LgbYDdQTbxdPGHIWIxL4C7cEPP1s9hjx0e3i7EXurvGV9kv8DAIWB8sKwwzPDBML5gfUA3P/a/tQ
+Jv2gfb898f6dP58AkYGPwnrCgMLegl5BmUCvv0c+Rj1QPL88IXx1fOp95X8DgJ2BzAMrg+JEYUR
pA8gDFgHywEM/LD2RvJC7+rtUe5m8OzzivjH/SUDIAhFDDYPuxC9EEIPcgySCP4DJv96+l/2KvMi
8XTwMfFE83f2efrr/mQDfQfRCgsN8g11DakLwQgNBfQA5PxQ+Zz2EPXS9Nz1APj1+ln+uwGsBMkG
ywecB1AGHwRYAWn+yvvo+RX5dvkG+4/9vQAcBCoHbAl5ChAKJQjjBKUA7ftR92vz0/Dz7wLx+/OV
+E/+iASLCpYPBhNiFHETRRAvC8AEqv2/9sjwe+xX6pTqL+3S8fb34P7PBfULpRBiE+cTQRKzDrEJ
3APh/XT4LPR28YXwWPG580j3ifvs/+sDEgcUCdIJTwm8B2UFpwLr/4/92/v6+vf6ufsW/c7+lwAm
Aj0DtAN/A6cCUwGt//T9ZvxA+7D6yfqO++r8uP7KAOACwwQ3BhIHPAetBnIFpgNyAQX/n/x8+s34
u/dg98z38/jB+hD9sv9uAgQFPQffCL0JuAnICP0GfAR/AUr+MfuA+IH2bvVo9XT2d/g9+37+4wEU
BbMHewk8CucJiwhNBngDagB9/QD7NflF+D34D/mU+pT8x/7qALsCCgS3BL0EKwQjA88BZQAZ/xb+
ev1T/Q==

------_=_NextPart_001_01C46978.EC4BBFAE--
.

hur har du gjort?

Jag skulle nog söka upp:
"Content-Disposition: attachment;"
och sen formatera därifrån

Jag har gjort på alla möjliga vis o jag lyckades få till det när jag hade EN bilaga men sen kom det fler o då blev det trassel, vore extremt tacksam om nån kunde testa att formatera detta åt mig o visa koden, ja vet, kanske låter som ja e lat men detta är sista utvägen känner jag.
har totalt kört fast.

Har testat att ha en startsträng som du sa, men sen ska ja stoppa innan nästa bilaga o med VAD ska ja stoppa? o hur fortsätter ja läsningen?

se min EDIT ovan.

/B

Hej!

Jag har själv skrivit en funktion i VB.NET som hanterar bilagor och mail innehåll...
Det du ska göra är att använda dig av Regular Expressions, ta ut vilken typ av data det är i mailet (om det finns bilagor, är vanlig text, HTML eller både text och HTML).
Om du upptäcker att Content-Type = multipart/mixed är det bilagor med...
En boundary finns alltid när det börjar på multipart så den måste du plocka ut...

Om det är bilagor vi pratar om så är datat upplagt på det sättet att den första sektionen är själva meddelandet, alltså den första boundary texten du stöter på fram till nästa...
Allt efter det är bilagor...

Men som sagt, använd Regular Expressions (RegExp) så ska du utan problem kunna få ut datat du vill...

Mvh,
Thomas

Hej, det var ju en variant jag inte testat:)

Då ska ja kolla detta då.

Boundary har jag plockat ut, dock finns ju två sådana med olika strängar...fast tar jag den sista strängen i mailet så är det ju den som gäller.

Mycket meck med detta.

Tackar tillsvidare.


EDIT: Hur hittar ja bra info + exempelkod för regexp?

Nä nu har ja kollat lite grann på regexp o ja hajjar INTE ETT DUGG!

/B

Tyvärr är det inte riktigt så enkelt...
Mailen ska läsas uppifrån och ner, alltså det bästa du gör är att plocka ut boundary från huvudet på mailet...

Om du vill kan jag bistå med lite tips och mönster för Regular Expressions för att få det att fungera...
Som sagt, jag har fullt fungerande funktioner för allt som jag skrivit själv...

Ta en titt på följande...
Notera boundary som jag märker ut.

<b>------_=_NextPart_001_01C46978.EC4BBFAE</b>
Content-Type: multipart/alternative;
boundary="<b>----_=_NextPart_002_01C46978.EC4BBFAE</b>"


<b>------_=_NextPart_002_01C46978.EC4BBFAE</b>
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

.........


<b>------_=_NextPart_002_01C46978.EC4BBFAE</b>
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

.........


<b>------_=_NextPart_002_01C46978.EC4BBFAE--</b>

<b>------_=_NextPart_001_01C46978.EC4BBFAE</b>


Ditt boundary i huvudet ser ut såhär: ----_=_NextPart_001_01C46978.EC4BBFAE
Märk väl att varje ställe börjar med -- sen kommer ----_=_NextPart_001_01C46978.EC4BBFAE
När den sektionen tar slut kommer än en gång -- och ----_=_NextPart_001_01C46978.EC4BBFAE som indikerar att föregående sektion tar slut och nästa börjar...
Sen när en sektion inte alls forstätter ser den ut såhär: ------_=_NextPart_001_01C46978.EC4BBFAE--
Alltså, två streck före och två streck efter...

Den första sektionen som man hittar med ----_=_NextPart_001_01C46978.EC4BBFAE är den där själva meddelandet finns...
Alla följande sektioner är bifogningar...
Du ser att varje meddelande har ett eget litet huvud som åtföljs av två radbrytningar när huvudet är slut.
Det första huvudet direkt efter det första ------_=_NextPart_001_01C46978.EC4BBFAE säger vilken boundary som meddelandet använder...

Så du ser, att du gör en funktion som tar emot texten från huvudet och retunerar boundary är väldigt bra för den går att återanvända på flera ställen...

Mvh,
Thomas

Tackar, jag ska se vad ja kommer fram till.

Du har inte nån kod för o rensa ur skallen samtidigt?:)


/B

Jag brukar rekommendera http://www.regular-expressions.info så det gör jag även denna gång =)
Har inte programmerat Regular Expressions i VB6 men jag tror det liknar programmering i ASP så jag kan posta en liten kod du kan testa med...

Mvh,
Thomas

Följande borde fungera, har dock inte testat det eftersom jag inte kör VB6...

<code>
Private Function GetHead(Mail As String) As String
On Error Resume Next

With CreateObject("VBScript.RegExp")
.Pattern = "^([\w\W]+(?!\r\n\r\n|$))[\w\W]*"
GetHead = .Replace(Mail, "$1")
End With
End Function
</code>

Funktionen ska hämta ut huvudet från hela mailmeddelandet...

Men försök hitta exempel etc på nätet på hur du använder RegExp i VB6 på olika sätt...

Mvh,
Thomas

Den koden tog bara ut hela mailet.

usch vad trött jag är på detta...man har fina strängar att söka på men icke...mailet verkar ju innehålla tecken man inte ser.

/B

Halloj , kan nån hjälpa mig me detta tro?

Jag vill på enklaste och säkraste sätt ta bort allt mellan
"Content-Type: audio/wav;" och "filename="online.wav" "

Hur gör jag detta? Jag har kört lite med Regexp och det verkar ju va en bra grej men jag förstår inte alls dess uppbyggnad och "Plutten" här på forumet verkar inte va inloggad:(

PLEEASE, hjälp mig.



Content-Type: audio/wav;
name="online.wav"
Content-Transfer-Encoding: base64
Content-Description: online.wav
Content-Disposition: attachment;
filename="online.wav"

UklGRggYAABXQVZFZm10IBAAAAABAAEAQB8AAIA+AAACABAAZGF0YeQXAAD7/wMA9/8EAPL/4P+O
/xf/O/6R/ff8Cf3T/AL9Bv20/kkBLwSMBbwFFgXwA48H8wwCEDUPRQ2fDY0UsRqqFvIEOfOU6rTm
K9gsyL7Bd8Iwyk/dBgBFH7Io6ycXMXlFO0tlNNwaThXjETABp/JW9HT68PTT6KbsjPtT9HDdpsyr
0APTQMHntkXI/etxBLYW7i/iT2RcNFU8VYFbt1bRNnwMre4s4DzK6a9coJOfLq1Ku3PW8foMFOsU
ORJ+IUc28jkTJEAStBTpH5IkkybjJiIjixt6DZ8JPPwm24m1lqMIqT+zqbGerJzFg+8aHXM8YE4w
XSVjTGAZWdJLCCU98vHFR7YcvM60paJCnX22Zt56AmoXDyeEM1I3+j7URJ8/5ibrBnb5pAIuBtD2
ROKm2+npmvfj+ezv8+Ks1yzZGeP/6O3oMt4Y4wgAwiODOMo2nzTGP9ZPN0vpMpgRcvK738bQ6MTj
t26qFanIvgTi8v1pBq4FwhQ2LylAojpPJqoVOhMTFXwT2Q0t/jDyofLrADUNCwNl6HvYl+B17Gnr
3th9zNvVkOt9A9QSaRn+HPUnOzuJTyRPgjPSFD8FZQNY+B3Yu7QWp7Cux8C30R7c6Of49+8SYjQA
SjdFCTLNJoEq/C5oG8761+Ir3o3mieup6KrhPt5Q4iXzbALdAKLx/eT07ncFIxAECeYB1An/Hywz
Djc3MH0iGRaoEMQMef1p30O+tbHyvZTLVM6Oy1bXOvffG5g0Fz9JQNc8wz3TPWo2FR6R+MX




/B

Nå nu är jag inloggad igen =)

Tänk inte i termen "hur tar jag bort det här" utan tänk istället i termen "hur behåller jag det här" =)
Ett enkelt mönster i RegExp sköter det hela åt dig...

^[\w\W]+?(?:\r?\n){2,}([\w\W]+)$

Använd mönstret tillsammans med RegExp metoden "Replace"

RegExp.Pattern = "^[\w\W]+?(?:\r?\n){2,}([\w\W]+)$"
Variabel = RegExp.Replace(Variabel, "$1")

På detta sätt ersätter du allting med enbart det du grupperar ihop, vilket blir själva datat...

Mvh,
Thomas

Halloj igen, jag slänger in ett STORT tack här med:)

Jag lämnar just denna tråd framöver, dumt att posta dubbelt.


/B