topic Re: how to make the VBA code invisible ? in VBA Forum

how to make the VBA code invisible ?

Anonymous — Thu, 17 May 2007 13:30:33 GMT

Hi, there anybody knows how to make the VBA code invisible after it is distributted to the users? what I mean is that the user should not see the VBA code. I did lock the the code but it still can be seen.
Thanks in advance!

Re: how to make the VBA code invisible ?

Anonymous — Thu, 17 May 2007 13:42:59 GMT

what do you mean by "did lock the code"?
setting password will prevent viewing

wrote in message news:5589015@discussion.autodesk.com...
Hi, there anybody knows how to make the VBA code invisible after it is
distributted to the users? what I mean is that the user should not see the
VBA code. I did lock the the code but it still can be seen.
Thanks in advance!

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 08:13:38 GMT

I don´t know of any safe way other than moving to VB, but I wondered whether somenthing like this would do. It´s definetively not invisible but hardly readable (even if you can read spanish).

Sub iiiii__ii_i_________i_______ii_()
Dim iii_i___i_ii_ii__i___ii______i_ As AcadSelectionSet
Dim i____________i_ii_iiii_i___i___ As i______iii_i_i____________
Dim i___ii____i__i_i___________i__i() As Integer
Dim i_______________i_ii_ii___ii__i() As Variant
Dim i____ii__i_i________i__i_i_ii__(1) As Integer
Dim ii____i________i____i___i___ii_(1) As Variant
Dim i__i__iii__i___i_______ii___ii_ As Boolean
Dim i______iii_______i_i________i__ As i_i____ii______i____i_i__i
Dim i___ii_ii_____i____i__i______i_ As AcadText
Set iii_i___i_ii_ii__i___ii______i_ = i_ii_____iii______ii____i__i___("aplica_xData_a_label_texto_marca_y_segmentos_corte")
i____ii__i_i________i__i_i_ii__(1) = 0
ii____i________i____i___i___ii_(1) = "TEXT"
i____ii__i_i________i__i_i_ii__(0) = 8
ii____i________i____i___i___ii_(0) = "TEXTOS MARCAS"
iii_i___i_ii_ii__i___ii______i_.Select acSelectionSetAll, , , i____ii__i_i________i__i_i_ii__, ii____i________i____i___i___ii_
ii____i________i____i___i___ii_(0) = "LABEL TEXTS"
iii_i___i_ii_ii__i___ii______i_.Select acSelectionSetAll, , , i____ii__i_i________i__i_i_ii__, ii____i________i____i___i___ii_
ReDim i___ii____i__i_i___________i__i(6)
ReDim i_______________i_ii_ii___ii__i(6)
For Each i___ii_ii_____i____i__i______i_ In iii_i___i_ii_ii__i___ii______i_
Set i____________i_ii_iiii_i___i___ = i__i_i__iii_______i_i____i_____.i_i_iiiii___i_i__________i__i__.ii_i___i____i_ii_i_iiii_ii__i_i(i___ii_ii_____i____i__i______i_)
i__i__iii__i___i_______ii___ii_ = False
If i___ii_ii_____i____i__i______i_.Layer = "LABEL TEXTS" Then i__i__iii__i___i_______ii___ii_ = True
If i__i__iii__i___i_______ii___ii_ Then
Set i______iii_______i_i________i__ = i____________i_ii_iiii_i___i___.i____i___i_ii_i_iii_____i____i_("SEGMENTO", -1)
If i______iii_______i_i________i__ Is Nothing Then GoTo i_i________i__i__i_________i___
ii__ii_i___i__i___iii__i____ii_ = i______iii_______i_i________i__.i__i____i__i______ii_i__i__i__i
Else
Set i______iii_______i_i________i__ = i____________i_ii_iiii_i___i___.i____i___i_ii_i_iii_____i____i_("SEGMENTO", -1)
If i______iii_______i_i________i__ Is Nothing Then GoTo i_i________i__i__i_________i___
ii__ii_i___i__i___iii__i____ii_ = i______iii_______i_i________i__.i__i____i__i______ii_i__i__i__i
End If
i___ii____i__i_i___________i__i(0) = 1001: i_______________i_ii_ii___ii__i(0) = "FICHEROS DE CORTE"
i___ii____i__i_i___________i__i(1) = 1000: i_______________i_ii_ii___ii__i(1) = "FECHA MODIFICACION"
i___ii____i__i_i___________i__i(2) = 1040: i_______________i_ii_ii___ii__i(2) = CDbl(Now)
i___ii____i__i_i___________i__i(3) = 1000: i_______________i_ii_ii___ii__i(3) = "TIPO"
i___ii____i__i_i___________i__i(4) = 1000: i_______________i_ii_ii___ii__i(4) = IIf(i__i__iii__i___i_______ii___ii_, "LABEL_TEXT_CN", "TEXTO_MARCA_CN")
i___ii____i__i_i___________i__i(5) = 1000: i_______________i_ii_ii___ii__i(5) = "PUNTO INSERCION CN"
i___ii____i__i_i___________i__i(6) = 1010: i_______________i_ii_ii___ii__i(6) = ii__ii_i___i__i___iii__i____ii_
i___ii_ii_____i____i__i______i_.SetXData i___ii____i__i_i___________i__i, i_______________i_ii_ii___ii__i
i_i________i__i__i_________i___:
Next i___ii_ii_____i____i__i______i_
iii_i___i_ii_ii__i___ii______i_.Clear
Dim i________i_i____i__i___i_____i_ As New i_____i____i__i_____i_____
Dim i_i___i___i____i__i_i__________ As AcadPolyline
Dim ii_i_____i_i_______i___________ As i__ii____i_i_____i________
i________i_i____i__i___i_____i_.i____ii_i_____i___ii____i____ii i___ii_i___i__i_______i___i_i_i
ReDim i___ii____i__i_i___________i__i(8)
ReDim i_______________i_ii_ii___ii__i(8)
Do While Not i________i_i____i__i___i_____i_.EOF
Set ii_i_____i_i_______i___________ = i________i_i____i__i___i_____i_.i_____ii_i______i__i____iiii___
Set i____________i_ii_iiii_i___i___ = i________i_i____i__i___i_____i_.i_i____ii______ii_i_i__i__ii___
Set i________i_i__________iii___i__ = i________i_i____i__i___i_____i_.i__i____i___ii_ii__i___i_i__i_i
i______________ii_i____________ = 1
Do While i____________i_ii_iiii_i___i___.ii______i_ii_iii_i________ii_i_ <= i________i_i__________iii___i__.ii______i_ii_iii_i________ii_i_
If i____________i_ii_iiii_i___i___.ii______i_i______i__ii__i__ii__ Or i____________i_ii_iiii_i___i___.iii____i_i___i____i_____ii__i__ Then
Set i_i___i___i____i__i_i__________ = i____________i_ii_iiii_i___i___.i__i__ii______i________ii_i__ii.iii__i_i__i_i__ii______ii______.iiii_____i____i____i__________i
i___ii____i__i_i___________i__i(0) = 1001: i_______________i_ii_ii___ii__i(0) = "FICHEROS DE CORTE"
i___ii____i__i_i___________i__i(1) = 1000: i_______________i_ii_ii___ii__i(1) = "FECHA MODIFICACION"
i___ii____i__i_i___________i__i(2) = 1040: i_______________i_ii_ii___ii__i(2) = CDbl(Now)
i___ii____i__i_i___________i__i(3) = 1000: i_______________i_ii_ii___ii__i(3) = "TIPO"
i___ii____i__i_i___________i__i(4) = 1000: i_______________i_ii_ii___ii__i(4) = "SEGMENTO DE CORTE"
i___ii____i__i_i___________i__i(5) = 1000: i_______________i_ii_ii___ii__i(5) = "PARTNAME"
i___ii____i__i_i___________i__i(6) = 1000: i_______________i_ii_ii___ii__i(6) = ii_i_____i_i_______i___________.i_____________i________i_______ & " " & ii_i_____i_i_______i___________.i__i__i______iii_____i_i_ii_ii_
i___ii____i__i_i___________i__i(7) = 1000: i_______________i_ii_ii___ii__i(7) = "NUMERO ORDEN"
i___ii____i__i_i___________i__i(8) = 1000: i_______________i_ii_ii___ii__i(8) = Trim(Str(i______________ii_i____________))
On Error Resume Next
i_i___i___i____i__i_i__________.SetXData i___ii____i__i_i___________i__i, i_______________i_ii_ii___ii__i
On Error GoTo 0
i______________ii_i____________ = i______________ii_i____________ + 1
End If
Set i____________i_ii_iiii_i___i___ = i____________i_ii_iiii_i___i___.i____ii_i_i_i____ii__i____i_i_i(1)
Loop
i________i_i____i__i___i_____i_.iii___i_ii___________i___i_____ 1
Loop
End Sub
Sub ii__i__i_________i__ii_i_i___i_(i_____i__i_ii___iii_i_i_i___i__ As String, i_i_i____i_______i___i___ii____)
iiii_______i__i__________i_____(i____ii______iii_i______i______, i_____i__i_ii___iii_i_i_i___i__).TextString = i_i_i____i_______i___i___ii____
End Sub

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 08:31:38 GMT

Hi,

How long would it take anyone interested to do a search and replace?

--

Laurie Comerford
CADApps
www.cadapps.com.au
www.civil3Dtools.com
wrote in message news:5590116@discussion.autodesk.com...
I don´t know of any safe way other than moving to VB, but I wondered whether
somenthing like this would do. It´s definetively not invisible but hardly
readable (even if you can read spanish).

Sub iiiii__ii_i_________i_______ii_()
Dim iii_i___i_ii_ii__i___ii______i_ As AcadSelectionSet
Dim i____________i_ii_iiii_i___i___ As i______iii_i_i____________
Dim i___ii____i__i_i___________i__i() As Integer
Dim i_______________i_ii_ii___ii__i() As Variant
Dim i____ii__i_i________i__i_i_ii__(1) As Integer
Dim ii____i________i____i___i___ii_(1) As Variant
Dim i__i__iii__i___i_______ii___ii_ As Boolean
Dim i______iii_______i_i________i__ As i_i____ii______i____i_i__i
Dim i___ii_ii_____i____i__i______i_ As AcadText
Set iii_i___i_ii_ii__i___ii______i_ =
i_ii_____iii______ii____i__i___("aplica_xData_a_label_texto_marca_y_segmentos_corte")
i____ii__i_i________i__i_i_ii__(1) = 0
ii____i________i____i___i___ii_(1) = "TEXT"
i____ii__i_i________i__i_i_ii__(0) = 8
ii____i________i____i___i___ii_(0) = "TEXTOS MARCAS"
iii_i___i_ii_ii__i___ii______i_.Select acSelectionSetAll, , ,
i____ii__i_i________i__i_i_ii__, ii____i________i____i___i___ii_
ii____i________i____i___i___ii_(0) = "LABEL TEXTS"
iii_i___i_ii_ii__i___ii______i_.Select acSelectionSetAll, , ,
i____ii__i_i________i__i_i_ii__, ii____i________i____i___i___ii_
ReDim i___ii____i__i_i___________i__i(6)
ReDim i_______________i_ii_ii___ii__i(6)
For Each i___ii_ii_____i____i__i______i_ In iii_i___i_ii_ii__i___ii______i_
Set i____________i_ii_iiii_i___i___ =
i__i_i__iii_______i_i____i_____.i_i_iiiii___i_i__________i__i__.ii_i___i____i_ii_i_iiii_ii__i_i(i___ii_ii_____i____i__i______i_)
i__i__iii__i___i_______ii___ii_ = False
If i___ii_ii_____i____i__i______i_.Layer = "LABEL TEXTS" Then
i__i__iii__i___i_______ii___ii_ = True
If i__i__iii__i___i_______ii___ii_ Then
Set i______iii_______i_i________i__ =
i____________i_ii_iiii_i___i___.i____i___i_ii_i_iii_____i____i_("SEGMENTO",
-1)
If i______iii_______i_i________i__ Is Nothing Then GoTo
i_i________i__i__i_________i___
ii__ii_i___i__i___iii__i____ii_ =
i______iii_______i_i________i__.i__i____i__i______ii_i__i__i__i
Else
Set i______iii_______i_i________i__ =
i____________i_ii_iiii_i___i___.i____i___i_ii_i_iii_____i____i_("SEGMENTO",
-1)
If i______iii_______i_i________i__ Is Nothing Then GoTo
i_i________i__i__i_________i___
ii__ii_i___i__i___iii__i____ii_ =
i______iii_______i_i________i__.i__i____i__i______ii_i__i__i__i
End If
i___ii____i__i_i___________i__i(0) = 1001:
i_______________i_ii_ii___ii__i(0) = "FICHEROS DE CORTE"
i___ii____i__i_i___________i__i(1) = 1000:
i_______________i_ii_ii___ii__i(1) = "FECHA MODIFICACION"
i___ii____i__i_i___________i__i(2) = 1040:
i_______________i_ii_ii___ii__i(2) = CDbl(Now)
i___ii____i__i_i___________i__i(3) = 1000:
i_______________i_ii_ii___ii__i(3) = "TIPO"
i___ii____i__i_i___________i__i(4) = 1000:
i_______________i_ii_ii___ii__i(4) = IIf(i__i__iii__i___i_______ii___ii_,
"LABEL_TEXT_CN", "TEXTO_MARCA_CN")
i___ii____i__i_i___________i__i(5) = 1000:
i_______________i_ii_ii___ii__i(5) = "PUNTO INSERCION CN"
i___ii____i__i_i___________i__i(6) = 1010:
i_______________i_ii_ii___ii__i(6) = ii__ii_i___i__i___iii__i____ii_
i___ii_ii_____i____i__i______i_.SetXData i___ii____i__i_i___________i__i,
i_______________i_ii_ii___ii__i
i_i________i__i__i_________i___:
Next i___ii_ii_____i____i__i______i_
iii_i___i_ii_ii__i___ii______i_.Clear
Dim i________i_i____i__i___i_____i_ As New i_____i____i__i_____i_____
Dim i_i___i___i____i__i_i__________ As AcadPolyline
Dim ii_i_____i_i_______i___________ As i__ii____i_i_____i________
i________i_i____i__i___i_____i_.i____ii_i_____i___ii____i____ii
i___ii_i___i__i_______i___i_i_i
ReDim i___ii____i__i_i___________i__i(8)
ReDim i_______________i_ii_ii___ii__i(8)
Do While Not i________i_i____i__i___i_____i_.EOF
Set ii_i_____i_i_______i___________ =
i________i_i____i__i___i_____i_.i_____ii_i______i__i____iiii___
Set i____________i_ii_iiii_i___i___ =
i________i_i____i__i___i_____i_.i_i____ii______ii_i_i__i__ii___
Set i________i_i__________iii___i__ =
i________i_i____i__i___i_____i_.i__i____i___ii_ii__i___i_i__i_i
i______________ii_i____________ = 1
Do While i____________i_ii_iiii_i___i___.ii______i_ii_iii_i________ii_i_ <=
i________i_i__________iii___i__.ii______i_ii_iii_i________ii_i_
If i____________i_ii_iiii_i___i___.ii______i_i______i__ii__i__ii__ Or
i____________i_ii_iiii_i___i___.iii____i_i___i____i_____ii__i__ Then
Set i_i___i___i____i__i_i__________ =
i____________i_ii_iiii_i___i___.i__i__ii______i________ii_i__ii.iii__i_i__i_i__ii______ii______.iiii_____i____i____i__________i
i___ii____i__i_i___________i__i(0) = 1001:
i_______________i_ii_ii___ii__i(0) = "FICHEROS DE CORTE"
i___ii____i__i_i___________i__i(1) = 1000:
i_______________i_ii_ii___ii__i(1) = "FECHA MODIFICACION"
i___ii____i__i_i___________i__i(2) = 1040:
i_______________i_ii_ii___ii__i(2) = CDbl(Now)
i___ii____i__i_i___________i__i(3) = 1000:
i_______________i_ii_ii___ii__i(3) = "TIPO"
i___ii____i__i_i___________i__i(4) = 1000:
i_______________i_ii_ii___ii__i(4) = "SEGMENTO DE CORTE"
i___ii____i__i_i___________i__i(5) = 1000:
i_______________i_ii_ii___ii__i(5) = "PARTNAME"
i___ii____i__i_i___________i__i(6) = 1000:
i_______________i_ii_ii___ii__i(6) =
ii_i_____i_i_______i___________.i_____________i________i_______ & " " &
ii_i_____i_i_______i___________.i__i__i______iii_____i_i_ii_ii_
i___ii____i__i_i___________i__i(7) = 1000:
i_______________i_ii_ii___ii__i(7) = "NUMERO ORDEN"
i___ii____i__i_i___________i__i(8) = 1000:
i_______________i_ii_ii___ii__i(8) =
Trim(Str(i______________ii_i____________))
On Error Resume Next
i_i___i___i____i__i_i__________.SetXData i___ii____i__i_i___________i__i,
i_______________i_ii_ii___ii__i
On Error GoTo 0
i______________ii_i____________ = i______________ii_i____________ + 1
End If
Set i____________i_ii_iiii_i___i___ =
i____________i_ii_iiii_i___i___.i____ii_i_i_i____ii__i____i_i_i(1)
Loop
i________i_i____i__i___i_____i_.iii___i_ii___________i___i_____ 1
Loop
End Sub
Sub ii__i__i_________i__ii_i_i___i_(i_____i__i_ii___iii_i_i_i___i__ As
String, i_i_i____i_______i___i___ii____)
iiii_______i__i__________i_____(i____ii______iii_i______i______,
i_____i__i_ii___iii_i_i_i___i__).TextString =
i_i_i____i_______i___i___ii____
End Sub

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 08:45:57 GMT

With a little VBE help, just a few seconds. You don´t want to search and replace manually. Appart from the time involved, the results might be catastrofic.

When I have some time I´ll put together some hints.

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 14:55:19 GMT

Dim i________i_i____i__i___i_____i_ As New i_____i____i__i_____i_____

Your code is using and not freeing memory.
Set it to nothing when your done.

set i________i_i____i__i___i_____i_ = nothing

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 14:59:22 GMT

The goto's point nowhere also. You need to define that or the code won't run.

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 15:50:23 GMT

Thanks DaveWish

You're right...I've got some plumbing to do to this one

Re: how to make the VBA code invisible ?

Anonymous — Fri, 18 May 2007 15:56:02 GMT

Hi again DaveWish

Goto's point is i_i________i__i__i_________i___. The line got truncated when I pasted it. You can see the label some lines below the call. Believe me, it does run.

Re: how to make the VBA code invisible ?

Anonymous — Sat, 19 May 2007 16:21:16 GMT

Hi Rita999

In the attachment there's a proposal of how to do it.
It is in fact a single module self-encrypted encryptor project, or to be more precise, a single module self-encrypted encryptor proto-project.

To make it work you need to make reference to "Visual Basic for Applications Extensibility". Read also the msbox's in the code.

Some comments:

1.- Good news: it works like charm for me everytime. It took less than 1 second to do this job, and little over 30 secs for a full size 30+ modules project.

2.- Bad news: It does not perform miracles. You've got to have certain discipline in your programming habits to make it work. In my case it wasn´t such a big deal since my mother language's spanish and my naming do not usually conflict with the interface's I use (mostly Acad, MicroStation & Excel). That gives you a clue on how it works.

3.- For me programming is just another tool. I neither live for nor on it. VBA is my language of choice because it puts very powerful standard tools at your finger tips without requiring onerous time investments. It fixes reasonably well my daily problems. That's why I'm not even moving to VB: that would make me a bad programmer. I'd rather be a good user.

All this is to say that I'm giving no lessons with my style or the algoriths I use. In fact, this is one that I improvised and turned out good enough for me. Also that I know that it won't cover all possible cases (e.g. I don´t usually use the Keyword Type, so the behavior is unexpectable if it finds if. That's fairly simple to change though).

4.- I do not distribute software comercially, so it's not so much about keeping it from everybody else's eyes, but from mine. There's a simple explanation to this paradox: I have some applications working on different workstations on my own company, and they usually require retouching to adapt to new situations. Having so easy access to the source code, it's always a strong temptation making changes on demand as you go. This technique prevents chaos from happening and keeps versioning under control.

5.- I have made some changes to the standard version I use. This one makes actual changes (not just translation) to the code so it is not as easy to read. For those having to distribute stuff it might be interesting. Side effect is that can cause certain ineficiency in performance to the encrypted program. Tests I did show that it wouldn't affect much my own applications.

I've also used in this version some programming techniques that , being not required, make it more difficult to unravel the encryptor´s encrypted code, while keeping the original source clear.

6.- I wouldn´t put this code to run on my computer before making sure it won´t damage anything. All you have is my word that there's no evil in it, perhaps some bad programming, that's it. Take my advice: if that's what you need, put some of your time in trying to figure it out, and then test it on a copy of one of your projects. Else you can just drop it.

7.- Why this way?. I think it's fear enough: keeping us all from enjoing your code shouldn't go without effort.

Do not hesitate to ask.

pablocarrascosa@yahoo.com

Re: how to make the VBA code invisible ?

Anonymous — Sun, 20 May 2007 07:01:07 GMT

The misspelling in point 7 didn't mean to cause distress to those testing the application on their projects;-). You should read "fair enough".

Re: how to make the VBA code invisible ?

Anonymous — Mon, 21 May 2007 19:55:19 GMT

Sub MySub()
Dim MySelectionSet As AcadSelectionSet
Dim IDoNotKnow1 As IDoNotKnow2
Dim MyInt1() As Integer
Dim MyVar1() As Variant
Dim MyInt2(1) As Integer
Dim MyVar2(1) As Variant
Dim SomeBooleanTest As Boolean
Dim IDoNotKnow3 As IDoNotKnow4
Dim MyText As AcadText
Set MySelectionSet = IDoNotKnow5("aplica_xData_a_label_texto_marca_y_segmentos_c orte")
MyInt2(1) = 0
MyVar2(1) = "TEXT"
MyInt2(0) = 8
MyVar2(0) = "TEXTOS MARCAS"
MySelectionSet.Select acSelectionSetAll, , , MyInt2, MyVar2
MyVar2(0) = "LABEL TEXTS"
MySelectionSet.Select acSelectionSetAll, , , MyInt2, MyVar2
ReDim MyInt1(6)
ReDim MyVar1(6)
For Each MyText In MySelectionSet
Set IDoNotKnow1 = i__i_i__iii_______i_i____i_____.i_i_iiiii___i_i__________i__i__.ii_i___i____i_i i_i_iiii_ii__i_i(MyText)
i__i__iii__i___i_______ii__ _ii_ = False
If MyText.Layer = "LABEL TEXTS" Then SomeBooleanTest = True
If SomeBooleanTest Then
Set IDoNotKnow3 = IDoNotKnow1.i____i___i_ii_i_iii_____i____i_("SEGMENTO", -1)
If IDoNotKnow3 Is Nothing Then GoTo MyGoToPoint
ii__ii_i___i__i___iii__i____ii_ = IDoNotKnow3.i__i____i__i______ii_i__i__i__i
Else
Set IDoNotKnow3 = IDoNotKnow1.i____i___i_ii_i_iii_____i____i_("SEGMENTO", -1)
If IDoNotKnow3 Is Nothing Then GoTo MyGoToPoint
ii__ii_i___i__i___iii__i____ii_ = IDoNotKnow3.i__i____i__i______ii_i__i__i__i
End If
MyInt1(0) = 1001: MyVar1(0) = "FICHEROS DE CORTE"
MyInt1(1) = 1000: MyVar1(1) = "FECHA MODIFICACION"
MyInt1(2) = 1040: MyVar1(2) = CDbl(Now)
MyInt1(3) = 1000: MyVar1(3) = "TIPO"
MyInt1(4) = 1000: MyVar1(4) = IIf(SomeBooleanTest, "LABEL_TEXT_CN", "TEXTO_MARCA_CN")
MyInt1(5) = 1000: MyVar1(5) = "PUNTO INSERCION CN"
MyInt1(6) = 1010: MyVar1(6) = ii__ii_i___i__i___iii__i____ii_
MyText.SetXData MyInt1, MyVar1
MyGoToPoint:
Next MyText
MySelectionSet.Clear
Dim IDoNotKnow6 As New somethingnew
Dim MyPolyline As AcadPolyline
Dim IDoNotKnow10 As i__ii____i_i_____i________
IDoNotKnow6.IDoNotKnow7 IDoNotKnow8 IDoNotKnow9
ReDim MyInt1(8)
ReDim MyVar1(8)
Do While Not IDoNotKnow6.EOF
Set IDoNotKnow10 = IDoNotKnow6.i_____ii_i______i__i____iiii___
Set IDoNotKnow1 = IDoNotKnow6.i_i____ii______ii_i_i__i__ii___
Set i________i_i__________iii___i__ = IDoNotKnow6.i__i____i___ii_ii__i___i_i__i_i
i___________ ___ii_i____________ = 1
Do While IDoNotKnow1.ii______i_ii_iii_i________ii_i_ <= i________i_i__________iii___i__.ii______i_ii_iii_i________ii_i_
If IDoNotKnow1.ii______i_i______i__ii__i__ii__ Or IDoNotKnow1.iii____i_i___i____i_____ii__i__ Then
Set MyPolyline = IDoNotKnow1.i__i__ii______i________ii_i__ii.iii__i_i__i_i__ ii______ii______.iiii_____i____i____i__________i
i___ii____i__i_i___________i __i(0) = 1001: MyVar1(0) = "FICHEROS DE CORTE"
MyInt1(1) = 1000: MyVar1(1) = "FECHA MODIFICACION"
MyInt1(2) = 1040: MyVar1(2) = CDbl(Now)
MyInt1(3) = 1000: MyVar1(3) = "TIPO"
MyInt1(4) = 1000: MyVar1(4) = "SEGMENTO DE CORTE"
MyInt1(5) = 1000: MyVar1(5) = "PARTNAME"
MyInt1(6) = 1000: MyVar1(6) = IDoNotKnow10.i_____________i________i_______ & " " & IDoNotKnow10.i__i__i______iii_____i_i_ii_ii_
i___ii____i_ _i_i___________i__i(7) = 1000: MyVar1(7) = "NUMERO ORDEN"
MyInt1(8) = 1000: MyVar1(8) = Trim(Str(i______________ii_i____________))
On Error Resume Next
MyPolyline.SetXData MyInt1, MyVar1
On Error GoTo 0
i______________ii_i____________ = i______________ii_i____________ + 1
End If
Set IDoNotKnow1 = IDoNotKnow1.i____ii_i_i_i____ii__i____i_i_i(1)
Loop
i ________i_i____i__i___i_____i_.iii___i_ii___________i___i_____ 1
Loop
End Sub
Sub mysub2(somestring As String, passedthing)
iiii_______i__i__________i_____(i____ii____ __iii_i______i______, somestring).TextString = passedthing
End Sub

That took like 2 minutes. It is a funny and clever idea, but better to build a dll IMO.

Re: how to make the VBA code invisible ?

Anonymous — Mon, 21 May 2007 21:58:30 GMT

I completly agree DaveWish, even though you only managed to get it considerably shorter, but just a llitle more readable. Plus, with modified the version I sent, every object is converted to generic type "Object" (as long as the conversion is safe). That'd make most to give up after the second minute.

Anyway, you are right. Better a dll.

Re: how to make the VBA code invisible ?

Anonymous — Mon, 21 May 2007 22:23:48 GMT

Additionally, a simple seach and replace may easily turn the code into a mess. Consider this situation

dim ii_ii___ii_iiii___i as String
dim ii_ii___ii_iiii___iii_ii___ii_iiii___i as Boolean

That wouldn't work if you replaced ii_ii___ii_iiii___i with something else.

Re: how to make the VBA code invisible ?

Anonymous — Tue, 22 May 2007 11:58:12 GMT

Hi,

Of course it wouldn't if you did it that search.

But if you work by replacing the strings from the longest string to the
shortest, then you wont have any problems with a reliable search and replace
as I alluded to in my first post on this subject.

--

Laurie Comerford
CADApps
www.cadapps.com.au
www.civil3Dtools.com
wrote in message news:5592968@discussion.autodesk.com...
Additionally, a simple seach and replace may easily turn the code into a
mess. Consider this situation

dim ii_ii___ii_iiii___i as String
dim ii_ii___ii_iiii___iii_ii___ii_iiii___i as Boolean

That wouldn't work if you replaced ii_ii___ii_iiii___i with something else.

Re: how to make the VBA code invisible ?

Anonymous — Tue, 22 May 2007 13:22:37 GMT

Not quite. In fact that method wouln´t go any better. Once you have replaced one of the strings, how do you make sure that a shorter one coming later is not a substring of that?.

I don´t care about lengths. You need to read the code and figure out what´s a variable, a declaration, a function declaration, etc. That´s how you make it work

Re: how to make the VBA code invisible ?

Anonymous — Tue, 22 May 2007 23:16:23 GMT

Once you replaced the longer strings the only remaining shorter strings are truly the shorter strings becuase the longer ones no longer exist.

Regards - Nathan

Re: how to make the VBA code invisible ?

Anonymous — Wed, 23 May 2007 03:53:45 GMT

The original longer strings no longer exist, but there do exist new long strings from previous search-replace operations and, compared with real short strings, even most VBA keywords (Next, Loop, etc) are long enough. To see this clearer, try and replace in you code the variable name "n" with "test_search_replace_short_strings", and then put it to run.

Re: how to make the VBA code invisible ?

Anonymous — Mon, 14 Apr 2008 06:23:07 GMT

Hai
U cant make code invisible but u can make changes in it, so that user finds very hard to read it
select all the line of your code and go to TOOL-->OPTIONS-->Editor Fromat and find some language which is very had ti read Message was edited by: Ramya