Lsp For find and replace the text with Excel (Or .txt file) input file

[suryatry26]

final ques...Attribute Text Possible to Include??

 

(list '(0 . "TEXT,MTEXT,ATTRIBUTE")

[BIGAL]

No an attribute is a sub entity of a "Insert" You would need a if/cond and new sub routine to handle blocks.

[djkenmm]

Guys, instead of selecting an excel file, how can i make it to search or load a specific excel file (with specific path) automatically

[Tharwat]

Guys, instead of selecting an excel file, how can i make it to search or load a specific excel file (with specific path) automatically

 

Just replace the codes that represents the dialog with your complete Excel file path and be careful to have two back slashes or one forward slash .

 

I mean this code:

(setq fl (.......))

 

With this uncomplete example as per your complete path:

 

(setq fl "C:\\......"))
or this:
(setq fl "C:/......."))

[djkenmm]

Hi Tharwat,

Thanks for the quick response.

I dont know really how to deal with it, but i did try and i got bad argument when i execute the command.

 

 

(if (and (setq fl "U:/test/Book1.csv")
     )
   (progn
     (defun _parse:strings (string delimiter / pos lst)
;;; Parse a string to a list of strings    ;;;

[Tharwat]

Good try actually.

 

A little mods ...

 

 (if (and (setq fl "U:/test/Book1.csv") 
                  (setq on (open fl "r"))
                 ) 
            (progn .............

[djkenmm]

Wow! Thanks Tharwat! it works now! Thank you very much for the quick assistance!

[Tharwat]

Wow! Thanks Tharwat! it works now! Thank you very much for the quick assistance!

You are most welcome

[CADSURVEY]

Hi Tharwat,

what a brilliant lisp. works very well.

 

was just wondering if it is a simple change in code so the .csv file your lisp reads into cad can be a ,(comma) delimited file rather than a ; (semicolon) 

I have just used the find and replace command within a comma delimited file to date. was just thinking it might be a simple fix to streamline the command.

Thank You in advanced.

and thank you again for sharing knowledge.

[BIGAL]

Not sure which bit of code you refer to but (defun _parse:strings (string delimiter / pos lst) the variable delimeter her can be what you choose so (_parse:string a,b,c,d,f ",")

[Tharwat]

8 hours ago, CADSURVEY said:

Hi Tharwat,

what a brilliant lisp. works very well.

 

was just wondering if it is a simple change in code so the .csv file your lisp reads into cad can be a ,(comma) delimited file rather than a ; (semicolon) 

I have just used the find and replace command within a comma delimited file to date. was just thinking it might be a simple fix to streamline the command.

Thank You in advanced.

and thank you again for sharing knowledge.

 

Hi,

Thank you for the nice words and I am happy that my program worked for you.

Regarding to your question, so just replace the semicolon in the following codes to comma.

eg: ( ";" to be "," )

(_parse:strings st ";")

 

 

 

 

 

 

[deepikasyl]

On ‎2‎/‎25‎/‎2015 at 5:13 PM, suryatry26 said:

Its Working Superb. Thanks a Lot..It Wont Work With MTEXT??? Possible to Include MTEXT?

can you pleas upload  CSV file ...

[deepikasyl]

On ‎2‎/‎25‎/‎2015 at 5:20 PM, Tharwat said:

 

Finally you got it working ! good for you

You can add the Mtext objects , just add the following part as shown in red color .

 

 

'(0 . "TEXT[color=red],MTEXT[/color]")

 

 

hi!! can you please upload CSV file .......