how to copy selected notepad text and paste it in other notepad with macro

Hello all,

my notepad contains,
0.002406 2 644 Rx d 8 0 0 0 0 0 0 41 175
0.002650 2 645 Rx d 8 0 0 0 0 0 0 41 176
0.002840 2 646 Rx d 5 0 64 0 0 0
0.003086 2 861 Rx d 8 128 3 0 0 0 0 0 0
0.003326 2 1477 Rx d 8 64 0 1 10 0 12 0 0
0.003581 2 640 Rx d 8 1 0 0 0 0 0 0 0
0.003829 2 734 Rx d 8 0 0 0 0 0 0 5 140
0.004077 2 853 Rx d 8 0 0 0 0 0 0 64 0
0.004325 2 1549 Rx d 8 0 6 0 0 0 0 64 0
0.005155 1 1291 Rx d 7 0 0 6 192 0 0 0
0.005164 2 372 Rx d 8 0 0 0 170 11 0 0 0
0.005402 2 374 Rx d 7 0 0 0 0 0 0 11
0.005411 1 282 Rx d 8 16 0 0 0 0 0 2 255
0.005608 2 533 Rx d 6 255 240 255 0 255 255
0.005655 1 468 Rx d 8 110 110 0 0 135 70 0 13
0.005858 2 384 Rx d 8 0 0 0 0 0 0 43 0
0.005903 1 498 Rx d 8 16 100 0 156 0 30 2 139
0.005989 2 534 Rx d 2 66 100
0.006173 2 469 Rx d 5 0 1 0 3 218
0.006415 2 454 Rx d 8 127 255 255 254 114 41 3 224
0.006627 2 42 Rx d 6 0 0 0 0 0 12
0.006855 2 459 Rx d 7 0 0 0 0 48 3 192


Suppose, if i search with "454" then i need total information about 454 (total row values i.e. "0.006415 2 454 Rx d 8 127 255 255 254 114 41 3 224") for
for all 454 information in entaire notepad.
Please help me on this....

Thanks & Regards,
Guru

Hi all,

Thank you so much for your replies.

Patel,
I tried your code, But I'm getting runtime error at "sn = Split(CreateObject("scripting.filesystemobject").opentextfile(folderPath & Fname1).readall, vbCrLf)
" (i.e Run time error 53, file not found).

please help what should i do?

Hello Jindon,
Thank you so much for your reply.
I'm getting problem with code.
Run-time error 70 (Permission denied)
at " txt = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\LocalData\TTC00417\Desktop\CANalyzer").ReadAll

Hi Jindon,

Thank you so much for your reply.
I tried with new text file but I'm getting same error.

please help me. I'm waiting for your reply.

As I said, if you select proper .txt file from the dialog and still having the error, the file is either corrupted or locked.

It is working here.

Hi Jindon-san,

Thanks a lot.
its working. can u pls tell me how can save slected data in new notepad file?

OK
change to

Please Login or Register  to view this content.

Dear Jindon-san,

Thank you soo much for your support. Its Working fine.

But, small problem, my notepad file contains more than 10000 signals. so, if I'm searching with particulor id then it is showing error (i.e. Out of memory)

please let me know what should i do?

Try this.


When asked delimiter and if the delimiter = Tab, just click OK, otherwise you need to enter delimiter such like a comma, space etc...

Please Login or Register  to view this content.

Dear Jindon-san,

Suppose if i want to search more than one id, then what should i do?

Multiple criteria at a time or separately?

Dear Jindon-san,

I tried with your code with "delimiter" but it is showing "Not Found"

please let me know what should i do? also tell me how can i search more than one message and store it in new notepad (all searched msgs)

0.002406 2 644 Rx d 8 0 0 0 0 0 0 41 175
0.002650 2 645 Rx d 8 0 0 0 0 0 0 41 176
0.002840 2 646 Rx d 5 0 64 0 0 0
0.003086 2 861 Rx d 8 128 3 0 0 0 0 0 0
0.003326 2 1477 Rx d 8 64 0 1 10 0 12 0 0
0.003581 2 640 Rx d 8 1 0 0 0 0 0 0 0
0.003829 2 734 Rx d 8 0 0 0 0 0 0 5 140
0.004077 2 853 Rx d 8 0 0 0 0 0 0 64 0
0.004325 2 1549 Rx d 8 0 6 0 0 0 0 64 0
0.005155 1 1291 Rx d 7 0 0 6 192 0 0 0
0.005164 2 372 Rx d 8 0 0 0 170 11 0 0 0
0.005402 2 374 Rx d 7 0 0 0 0 0 0 11
0.005411 1 282 Rx d 8 16 0 0 0 0 0 2 255
0.005608 2 533 Rx d 6 255 240 255 0 255 255
0.005655 1 468 Rx d 8 110 110 0 0 135 70 0 13
0.005858 2 384 Rx d 8 0 0 0 0 0 0 43 0
0.005903 1 498 Rx d 8 16 100 0 156 0 30 2 139
0.005989 2 534 Rx d 2 66 100
0.006173 2 469 Rx d 5 0 1 0 3 218
0.006415 2 454 Rx d 8 127 255 255 254 114 41 3 224
0.006627 2 42 Rx d 6 0 0 0 0 0 12
0.006855 2 459 Rx d 7 0 0 0 0 48 3 192


For example user will search 644 and 454 then i need ,
0.002650 2 645 Rx d 8 0 0 0 0 0 0 41 176
0.006415 2 454 Rx d 8 127 255 255 254 114 41 3 224

shorting with time stamp

sorry output should be,
0.002406 2 644 Rx d 8 0 0 0 0 0 0 41 175
0.006415 2 454 Rx d 8 127 255 255 254 114 41 3 224

In your case, delimiter is a space (space delimited txt file), so just enter space, not a word sapce, just inter space bar from the keyboard.

Please Login or Register  to view this content.

Dear Jindon-san,

Thank you so much for reply

Sorry to say, I'm getting "Not found"

No idea, it is working here.

Dear Jindon-san,

It's Working Fine, But Long data file it is showing "Out of memory"

Then need to read line by line

Please Login or Register  to view this content.

Hi patel,

Thank you so much for your help.

Your code is working fine. But if I'm giving Large file as input then it is showing error (i.e. Runtime Error "14", Out of string space).
Note: My File contains more than 300MB.

Ya .. ur correct. I'm asking about last code. after ur corrections code is working fine,But it is not giving 100% result for my requirement.

Dear Jindon-san,

Your code is working fine but, it is giving only "myCriteria " value from source file, it's not giving full row length of myCriteria