Instr med linjeskift??

Linie skift ?
Du vil finde linieskift i en streng ?

chr(13) er ikke linieskift men \"vogn retur\" som det kaldes i gamle dage fra skrivemaskinernes tid.

chr(10) er linieskift og man bruger dem som regel sammen,

chr(10) og chr(13)

prøv evt. med #10#13

f.eks. \'tekstlinie 1\'+#10#13+\'tekstlinie2\'

Nej jeg vil finde pladsen for linjeskiftet + 1 d.v.s. pladsen efter linjeskiftet, så jeg får det første tegn.

Hvis jeg har en tekstfil f.eks. med html, er en del af koden på næste linje, og det kan instr ikke finde ud af uden videre.
Søg efter tegnet efter \'*\' (*+1)

Eks.
blablabla*
cscscs
den skal så returnere \'c\'

ok, så prøv at søge efter #13 istedet for *. NB! du skal ikke sætte #13 i anførselstegn

Nej jeg skal have den til at finde \'c\' efter linjeskiftet

intPos = InStr(\"en streng \" & vbCrLf & \"med linieskift.\", vbCrLf) + 1

eh ?? eller så er det nogle underlige linieskift du holder dig til ...

Nej, faktisk skal du plusse med 2 da den smider starten af vbCrLf tilbage.. (og VbCrLf er 2 tegn..)

For at være helt præcis er det mit script der skal læse meta-tags.
<Meta name=\"description\" content=
\"Hejsa dette er en test\">

Jeg skulle så gerne have funde \", men den finder ikke noget af det.

If instr(line,\"<meta name=\"\"description\"\" content=\" & vbCrLf &\" \"\" \") then
startBesk = Instr(1,line,\"<meta name=\"\"description\"\" content=\" & vbCrLf & \" \"\" \")+1

hæ hæ .. okay, nu skal du høre.

Hvis du søger på en streng \'noget tekst\' for eksempel, så hvis den findwer noget, får du positionen på STARTEN af strengen i den streng du søger i. Derfor vil du ved:

If instr(line,\"<meta name=\"\"description\"\" content=\" & vbCrLf &\" \"\" \") then

få returnerert 1, da < er det første tegn.

brug istedet f.eks.

If instr(line, \"content=\" & chr(34)) then

så får du starten af content ..

>If instr(line,\"<meta name=\"\"description\"\" >content=\" & vbCrLf &\" \"\" \") then

>få returnerert 1, da < er det første tegn.
>brug istedet f.eks.

Når sådan virker den nu ved tekstfiler hvor der IKKE er linjeskift.

>If instr(line, \"content=\" & chr(34)) then

>så får du starten af content ..
chr(34) hvor mange er der. Er der nogen liste på det?
Den prøver jeg

chr(ascii) returnere tegnet som streng.

f.eks. 34 er \" .. 32 er mellemrum, 64 er @ etc.

Sådan her kommer det til at se ud.
Den undersøger først det ene og hvis den ikke finder noget, så det andet..

vh Søren Peter

If instr(line,\"name=\"\"description\"\" content=\" & vbCrLf  & chr(34)) then
startBesk = Instr(1,line,\"name=\"\"description\"\" content=\" & vbCrLf  & chr(34))-4
Besk=1
elseIf instr(line,\"name=\"\"description\"\" content=\" & vbCrLf  & chr(34)) then
startBesk = Instr(1,line,\"name=\"\"description\"\" content=\" & vbCrLf  & chr(34))
Besk=1
End if

Om igen:

If instr(line,\"name=\"\"description\"\" content=\"\"\") then
startBesk = Instr(1,line,\"name=\"\"description\"\" content=\"\"\")
Besk=1
om igen

elseIf instr(line,\"name=\"\"description\"\" content=\" & vbCrLf  & chr(34)) then
startBesk = Instr(1,line,\"name=\"\"description\"\" content=\" & vbCrLf  & chr(34))-4
Besk=1
End if

så virker det kan jeg regne ud ? det var fint!

Jeps takker... Jeg er vist lidt træt siden jeg skriver \'om igen\' et par gange;-)

Søren