Combine Code

[Thompyt]

I'm having difficulty combining 2 codes:


Nets = [OS::SW1] [GARS1::GARS2]

1Rad2: IIf(Not IsNull([Nets]),Mid([Nets],InStr(1,[Nets],"]")+3),"") - Output = GARS1::GARS2]



Rad2: Left([1Rad2],Len([1Rad2])-1) - Output = GARS1::GARS2

I am paring down a string not made by me.

Thanks

[ranman256]

This can't be real code.

[Thompyt]

Why can it not be? I'm trying to combine 2 columns in a query into 1.

[aytee111]

I'm with Ranman on this - but to make strings with multiple bits and pieces keep putting "&" between each one.

[Missinglinq]

Why can it not be?

Because

Nets = [OS::SW1] [GARS1::GARS2]

means absolutely nothing in Access VBA! Explain what each of these components are

Nets
OS
SW1
GARS1
GARS2

and how you want to combine them.

Linq ;0)>

[Thompyt]

ALLCON,
NETS is a complete string from another source. It isn't the code part. Missinlinq has it the closest. That is exactly what I am trying to do. Break it down into the different parts

1Rad2: IIf([Nets]<>"",Mid([Nets],InStr(1,[Nets],"]")+3),"")

You get the out put of: GARS1::GARS2]

The second is to remove the final character "]"

Rad2: Left([1Rad2],Len([1Rad2])-1)

Its output is: GARS1::GARS2

I was wanring to combine both sets into 1 code line. putting a & between them would be:

GARS1::GARS2]GARS1::GARS2

My intent is to have four columns in the query with code to break it all down into

"[OS::SW1] [GARS1::GARS2]"

Col1: R1CH1: IIf([Nets]<>"",Mid(Left([Nets],InStr([Nets],":")-1),2,20),"") gets you "OS"
Col2: R1CH2: IIf([Nets]<>"",Mid(Mid(Left([Nets],InStr([Nets],"]")-1),2,20),InStr(1,[Nets],":")+1)) gets you "SW1"
Col3: "GARS1"
Col4: IIf([Nets]<>"",Replace(Mid([Nets],InStrRev([Nets],":")+1),"]","")) gets you "GARS2"

I am working on the others to be able to do it in 1 column each.Right now I need to have a base to start.

Rad1: IIf(Not IsNull([Nets]),Mid(Left([Nets],InStr([Nets],"]")-1),2,20),"") - That is: "OS::SW1" for the 1st Bracketed Set.

The Original Post is for the second bracketed data set: "[GARS1::GARS2]"

[CJ_London]

my understanding is you have a string such as "[OS::SW1] [GARS1::GARS2]" which is called Nets and you want to extract the bit highlighted in red


If this is correct, try

Rad2:iif(isnull([Nets]),"",replace(mid([Nets] ,instrrev([Nets] ,"[")+1),"]",""))

[Thompyt]

Thanks AJAX what I was looking for. I did have the replace in there before, but instrrev I'll have to look into.

Thanks