Notes tests, text files, manipulation of text files in Excel and with Excel VBA CSV stuff

**DocAElstein** · 02-17-2021, 06:53 PM

**DocAElstein** · 08-17-2021, 11:50 PM

Test csv file upload ( this post was moved from https://excelfox.com/forum/showthread.php/2759-Test-csv-file-upload?p=15594#post15594
Its new link is https://excelfox.com/forum/showthread.php/2559-Notes-tests-text-files-manipulation-of-text-files-in-Excel-and-with-Excel-VBA?p=15594&viewfull=1#post15594
Originally it was referrenced ( linked via URL ) here https://excelfox.com/forum/showthrea...ll=1#post15596 https://excelfox.com/forum/showthread.php/2758-formatting-number-in-csv-file-import-Number-being-rounded-decimnal-places-truncated?p=15596&viewfull=1#post15596 )

**DocAElstein** · 08-18-2021, 10:36 AM

Post for later use, to get URL now

**DocAElstein** · 08-18-2021, 11:24 AM

( this is post 35 15601 , it was used to copy to get post 36 below )

continued from last post

https://excelfox.com/forum/showthrea...ll=1#post15597 https://excelfox.com/forum/showthread.php/2757-Run-time-error-1004-when-trying-to-resize-a-multi-area-range-object?p=15597&viewfull=1#post15597
apvtrn.csv - last 2 of 9 lines

Code:

2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APR 13-JUN 10-2021,2021-07-08,2021-08-07,1187-25,0,196.23,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005453,PY,,,2021-08-05,,834-1,,-196.23,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed

continued in next post

**DocAElstein** · 08-18-2021, 11:35 AM

( Post #37 15602 )

formatting-number-in-csv-file-import-Number-being-rounded-decimnal-places-truncated
https://excelfox.com/forum/showthrea...aces-truncated https://excelfox.com/forum/showthread.php/2758-formatting-number-in-csv-file-import-Number-being-rounded-decimnal-places-truncated [/size]

continued from last post

apvtrn.csv - first 6 lines of 9 lines in Text File supplied here https://excelfox.com/forum/showthrea...ll=1#post15598

Code:

2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000004918,PY,,,2021-04-01,,749-3,,-240.74,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,JAN 16-MAR 17-2021,2021-04-08,2021-05-08,1100-23,0,"2,371.66",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005064,PY,,,2021-05-06,,769-1,,"-2,371.66",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APRIL 01-12-2021,2021-05-10,2021-06-09,1135-7,0,262.8,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005149,PY,,,2021-05-27,,784-7,,-262.8,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APR 01 - MAY 18- 2021,2021-06-08,2021-07-08,1168-2,0,"1,864.35",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed

continued in next post

**DocAElstein** · 08-18-2021, 11:43 AM

( Post #38 15603 )

contunued from last post

last 5 of nine lines in apvtrn.csv as supplied for formatting number in csv file import. Number being rounded / decimal places truncated
https://excelfox.com/forum/showthrea...aces-truncated
https://excelfox.com/forum/showthrea...ll=1#post15598
https://excelfox.com/forum/showthread.php/2758-formatting-number-in-csv-file-import-Number-being-rounded-decimnal-places-truncated?p=15598&viewfull=1#post15598

Code:

2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005149,PY,,,2021-05-27,,784-7,,-262.8,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APR 01 - MAY 18- 2021,2021-06-08,2021-07-08,1168-2,0,"1,864.35",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005260,PY,,,2021-06-24,,801-3,,"-1,864.35",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APR 13-JUN 10-2021,2021-07-08,2021-08-07,1187-25,0,196.23,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005453,PY,,,2021-08-05,,834-1,,-196.23,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed

**DocAElstein** · 08-18-2021, 03:29 PM

jjhgjhghjhjg

**DocAElstein** · 08-18-2021, 10:52 AM

Some notes in support of these Theads and posts in main forum
https://excelfox.com/forum/showthrea...ll=1#post15586 https://excelfox.com/forum/showthread.php/2757-Run-time-error-1004-when-trying-to-resize-a-multi-area-range-object?p=15586&viewfull=1#post15586
https://excelfox.com/forum/showthrea...aces-truncated https://excelfox.com/forum/showthread.php/2758-formatting-number-in-csv-file-import-Number-being-rounded-decimnal-places-truncated

Run-time error 1004 when trying to resize a multi area range object
https://excelfox.com/forum/showthread.php/2757-Run-time-error-1004-when-trying-to-resize-a-multi-area-range-object?p=15597&viewfull=1#post15597 https://excelfox.com/forum/showthread.php/2757-Run-time-error-1004-when-trying-to-resize-a-multi-area-range-object?p=15597&viewfull=1#post15597
https://excelfox.com/forum/showthrea...ll=1#post15586 https://excelfox.com/forum/showthread.php/2757-Run-time-error-1004-when-trying-to-resize-a-multi-area-range-object?p=15586&viewfull=1#post15586
https://excelfox.com/forum/showthrea...aces-truncated https://excelfox.com/forum/showthread.php/2758-formatting-number-in-csv-file-import-Number-being-rounded-decimnal-places-truncated
apvtrn.csv - first 7 of 9 lines

Code:

2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000004918,PY,,,2021-04-01,,749-3,,-240.74,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,JAN 16-MAR 17-2021,2021-04-08,2021-05-08,1100-23,0,"2,371.66",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005064,PY,,,2021-05-06,,769-1,,"-2,371.66",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APRIL 01-12-2021,2021-05-10,2021-06-09,1135-7,0,262.8,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005149,PY,,,2021-05-27,,784-7,,-262.8,0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,4.00003E+11,IN,,APR 01 - MAY 18- 2021,2021-06-08,2021-07-08,1168-2,0,"1,864.35",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed
2021-08-17  10:56:40AM,Navigata Communications Limited,Page 1,A/P Vendor Transactions  (APVTRN01),From Vendor Number,[100045]  To  [100045],From Vendor Group,[VCAD]  To  [VEFT],,,,,Sort Vendors By,[Vendor Name],,,,,,,From Document Date,[2021-04-01]  To  [2021-08-17],Session Date,[2021-08-17],Report Format,[Vendor Transactions by Document Date],Transaction Types,"[Invoice, Credit Note, Prepayment, Payment]",Include Contact/Phone/Credit Limit,[No],Include Space For Comments,[No],Include Zero-Balance Vendors,[Yes],Include Transaction Type Totals,[No],Show Applied Details,[No],Show Fully Paid Transactions,[Yes],Sort Transactions by Transaction Type,[No],Print Amounts In,[Vendor Currency],,,,,,,,,,,,,,,,,,Vendor Number/Name/,,Batch-,Days,Transaction,Document Number/Type,Order Number,PO Number,Doc. Date,Due Date or Check Number,Entry,Over,Amount,Balance,,,,,,,,,100045,BC Hydro (1500 0415 081) consolidated account,,,,,,,,,,,,,,,,,,,,,,,,,,,,PY00000000000000005260,PY,,,2021-06-24,,801-3,,"-1,864.35",0,Vendor Total: ,CAD,-240.74,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,CR: Credit Note                            DB: Debit Note                           IN: Invoice                            IT: Interest Charge                       PI: Prepayment                      MC: Miscellaneous Payment,AD: Adjustment                            CF: Applied Credit (from)           CT: Applied Credit (to)         DF: Applied Debit (from)              DT: Applied Debit (to)   ,ED: Earned Discount Taken         GL: Gain or Loss (multicurrency ledgers)                                PY: Payment                                RD: Rounding,,1 vendor printed,1 vendor name record printed

continued in next post

**DocAElstein** · 08-18-2021, 11:24 AM

Post #36 15604 ( copied originally from post 35, then edited as a way of getting a post here )

continued from last post

This is how the text file from the last 2 post opens in my Excel
_____ Workbook: apvtrn.csv ( Using Excel 2007 32 bit )

_Row\^Col	DI	DJ	DL	DM	DN	DO	DQ
1	PY00000000000000004918	PY		04-01-2021		749-3	-240.74
2	4.00E+11	IN	JAN 16-MAR 17-2021	04-08-2021	05-08-2021	1100-23	2,371.66
3	PY00000000000000005064	PY		05-06-2021		769-1	-2,371.66
4	4.00E+11	IN	APRIL 01-12-2021	05-10-2021	06-09-2021	1135-7	262.8
5	PY00000000000000005149	PY		05-27-2021		784-7	-262.8
6	4.00E+11	IN	APR 01 - MAY 18- 2021	06-08-2021	07-08-2021	1168-2	1,864.35
7	PY00000000000000005260	PY		06-24-2021		801-3	-1,864.35
8	4.00E+11	IN	APR 13-JUN 10-2021	07-08-2021	08-07-2021	1187-25	196.23
9	PY00000000000000005453	PY		08-05-2021		834-1	-196.23

Worksheet: apvtrn

_.. The OP appears unable to explain what he wants, and he probably doesn't know or can hardly speak a word of English.. never mind ... it isn't the fucking first time, and i doubt it will be the last, onward! based on seeing this a lot form the OP , Set rngDst = wkbDst.Worksheets("STATEMENT").Range("A17:C17, E17") , as well as a screenshots he gave,

https://i.imgur.com/VtfbGD2.jpg

https://i.imgur.com/W0qJZCN.png ImageWhatWantedButNoData.JPG statement.PNG
I am taking a guess that somehow, some of the data above needs to find its way somewhere in the general area shown below
_____ Workbook: VENDOR STATEMENT.xlsm ( Using Excel 2007 32 bit )

_Row\^Col	A	B	C	D	E
15	Invoice Date	Invoice #	Invoice Due Date	A/C	Invoice $ +
16		*Balance brought forward*
17
18
19

Worksheet: STATEMENT

-.. and from seeing this... For Each Col In Array("DM", "DI", "DN", "DQ") , I will take a guess we can make these relations
DM – A ( date )
DI – B ( big number )
DN – C ( date )

DQ – E ( a number that might be something to do with money )

**DocAElstein** · 02-08-2022, 09:32 PM

Insert some lines without losing what’s there / Retain Comments / Shift what’s there to the right

A fairly simple problem
A common requirement for me is that I want to put some raw code lines into an existing script or VBA code, but I don’t want to change the line numbers referring to where they do in the existing code file.
This might occur if I want to replace some coding, but would like to keep the existing coding for future reference, possibly commented out to the right
What I might do typically for just a few lines is to manually put a comment at the start left of lines to be replaced, and then shift those now comments a few spaces to the right, then start typing the replacement lines from the left, which then pushed those comments to the left
Pictorially this is what I mean for the simple case of wanting to replace just one line

Code:

Sub Original()
Dim Msg As String
 Let Msg = "Hello"
 MsgBox Prompt:="Hello shit World"
End Sub
Sub ModifiedByInsertingNewCodeLine()
Dim Msg As String
 Let Msg = "Hello"
 Debug.Print "Hello shit World" ' MsgBox Prompt:="Hello shit World"
End Sub

That’s easy for a few lines, but for a lot of lines it’s a tedious pain in the arse

.ps1 PowerShell text like code lines
Currently have some large .ps1 PowerShell files that I am inserting a lot of lines in and want to do it in the way I am talking about
In this post I will check out the format of the files first, in case there are any unusual “invisible” characters in them, since I have seen that in some PowerShell related text files ( https://excelfox.com/forum/showthrea...ll=1#post15357 https://excelfox.com/forum/showthrea...age3#post15357 )
Here is a File of 250 code line, that I want to put in,
Share ‘blockIPhostsRawAll250.ps1’ https://app.box.com/s/7019x59uvvxt7osvb0tojr0z4g7bfdgk ,
and here is just the first 4 lines for testing here,
Share ‘blockIPhosts4Lines.ps1’ https://app.box.com/s/37pjl9jfk9wue413xewgcjg1cdwk9dwb .
Here is a File I want to put that in from about line 200,
Share ‘Temp7BeforeIPhostsInsert.ps1’ https://app.box.com/s/fttlmwny6y4s5ub1q66kvqbrw2ppxdwz
, and here is just the first 4 lines of that for testing here,
Share ‘Temp7BeforeIPhostsInsertFirst4Lines.ps1’ https://app.box.com/s/bimxv550fpkoqndt8rz421s9vmcsorif .

Simple macro …_

Code:

'Here is a File of 250 code line, that I want to put in,
'Share ‘blockIPhostsRawAll250.ps1’ https://app.box.com/s/7019x59uvvxt7osvb0tojr0z4g7bfdgk ,
'and here is just the first 4 lines for testing here,
'Share ‘blockIPhosts4Lines.ps1’ https://app.box.com/s/37pjl9jfk9wue413xewgcjg1cdwk9dwb .
'Here is a File I want to put that in from about line 200,
'Share ‘Temp7BeforeIPhostsInsert.ps1’ https://app.box.com/s/fttlmwny6y4s5ub1q66kvqbrw2ppxdwz
', and here is just the first 4 lines of that for testing here,
'Share ‘Temp7BeforeIPhostsInsertFirst4Lines.ps1’ https://app.box.com/s/bimxv550fpkoqndt8rz421s9vmcsorif .
'
'
Sub LookInFirstBitOfTemp4andIPhosts() ' https://excelfox.com/forum/showthread.php/2559-Notes-tests-text-files-manipulation-of-text-files-in-Excel-and-with-Excel-VBA?p=16366&viewfull=1#post16366
' Get the text file as a long single string
Dim FileNum As Long: Let FileNum = FreeFile(1) ' https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/freefile-function
Dim PathAndFileName As String, TotalFile As String
 Let PathAndFileName = ThisWorkbook.Path & Application.PathSeparator & "test4lines.txt" ' CHANGE TO SUIT From vixer zyxw1234 : http://www.eileenslounge.com/viewtopic.php?f=30&t=34629 DF.txt https://app.box.com/s/gw941dh9v8sqhvzin3lo9rfc67fjsbic
Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundamental type data input...
 Let TotalFile = Space(LOF(FileNum)) '....and wot receives it has to be a string of exactly the right length
Get #FileNum, , TotalFile 'Debug.Print TotalFile
 'Let TotalFile = Replace(TotalFile, Chr(0), "", 1, -1, vbBinaryCompare) ' https://i.postimg.cc/t43HCQr9/Rather-a-lot-of-Chr-0-s.jpg
 'Let TotalFile = Replace(TotalFile, Chr(255) & Chr(254) & vbCr & vbLf, "", 1, 1, vbBinaryCompare)
Close #FileNum
 Call WtchaGot_Unic_NotMuchIfYaChoppedItOff(TotalFile)
End Sub

Here is a view in the text editor of those first 4 lines, followed by what my WtchaGot_Unic_NotMuchIfYaChoppedItOff( function gives me

Code:

 Function BlochIPhosts {param([int]$Testie)
 $Check = $Testie
Write-Host "Adding telemetry domains to hosts file" # Write-Output "Adding telemetry domains to hosts file"
$hosts_file = "$env:systemroot\System32\drivers\etc\hosts"


"Function BlochIPhosts " & Chr(123) & "param" & "(" & Chr(91) & "int" & Chr(93) & "$" & "Testie" & ")" & vbCr & vbLf & " " & "$" & "Check " & "=" & " " & "$" & "Testie" & vbCr & vbLf & "Write" & "-" & "Host " & """" & "Adding telemetry domains to hosts file" & """" & " " & "#" & " Write" & "-" & "Output " & """" & "Adding telemetry domains to hosts file" & """" & vbCr & vbLf & "$" & "hosts" & "_" & "file " & "=" & " " & """" & "$" & "env" & ":" & "systemroot" & "\" & "System32" & "\" & "drivers" & "\" & "etc" & "\" & "hosts" & """"



Add-Type -AssemblyName System.Windows.Forms
[System.Windows.Forms.Application]::EnableVisualStyles() #
Remove-Variable * -ErrorAction SilentlyContinue # is needed or else a removed variable is still there when fucking about with variables. by default variables are persistant.
$ErrorActionPreference = 'SilentlyContinue'


"Add" & "-" & "Type " & "-" & "AssemblyName System" & "." & "Windows" & "." & "Forms" & vbLf & Chr(91) & "System" & "." & "Windows" & "." & "Forms" & "." & "Application" & Chr(93) & ":" & ":" & "EnableVisualStyles" & "(" & ")" & " " & "#" & vbLf & "Remove" & "-" & "Variable " & Chr(42) & " " & "-" & "ErrorAction SilentlyContinue " & "#" & " is needed or else a removed variable is still there when fucking about with variables" & "." & " by default variables are persistant" & "." & vbLf & "$" & "ErrorActionPreference " & "=" & " " & "'" & "SilentlyContinue" & "'"

Here is a screenshot of the two files in Notepad text editor

So, no major problems or surprises, ( or so I thought – see next post )
It looks like a different line separator is used sometimes. But we have seen this before.
I have a slight personal tendency to prefer the two character line separator, vbCr & vbLf , and also the first file was the main one in which the other will be inserted, so I will do a simple conversion to the file to be inserted to replace all vbLf with vbCr & vbLf

One small interesting note. I don’t have a last trailing line feed character or characters. That is not so usual, at least I have not experienced it yet so far in playing around with .csv and other text files