How to save an ANSI file from Business Central

(4) Share

Report

Posted on by MS-07051042-0

143

Hi experts,

This is regarding Business Central cloud.

When I make a file, I can set the encoding to Windows, UTF-8, UTF-16 and MSDOS.

Our customer need a file with ANSI encoding.

How do I do that?

Hope, you can help.

Morten

Categories:

Dynamics 365 Business Central

I have the same question (0)

All responses (5)

Answers (1)

Verified answer

MS-07051042-0 143 on at

Like (2)

Report

How to save an ANSI file from Business Central

Hi YUN ZHU and Khushby Rajvi,

Thank you for your reply.

Since Microsoft don't support making an ANSI encoded file (with our local, Danish, letters), I have made it myself (with a little help from my friend, Erik Hougaard on YouTube).

This way it is working fine and our customer does not have to pay for the Azure functions.

I saw how Erik Hougaard made an app that created a WAVE file and I used that to make the code below. I know it does not support all letters and signs, but this is what the customer is willing to pay for - and it is all they need.

procedure SaveAnsiEncodedTextFileFromTempBlob(var TempBlobLocal: Codeunit "Temp Blob"; FileName: Text)

var

InStream, IStream : InStream;

OutStream: OutStream;

TempBlobLocal2: Codeunit "Temp Blob";

TextToWrite: Text;

i: Integer;

Byte1, Byte2, Byte3, Byte4, Byte5, Byte6 : Byte;

begin

// Read text from TempBlob

TempBlobLocal.CreateInStream(InStream, TextEncoding::UTF8);

InStream.ReadText(TextToWrite);

TempBlobLocal2.CreateOutStream(OutStream);

Byte1 := 230; // æ

Byte2 := 248; // ø

Byte3 := 229; // å

Byte4 := 198; // Æ

Byte5 := 216; // Ø

Byte6 := 197; // Å

for i := 1 to StrLen(TextToWrite) do begin

if TextToWrite[i] = 'æ' then

OutStream.Write(Byte1)

else if TextToWrite[i] = 'ø' then

OutStream.Write(Byte2)

else if TextToWrite[i] = 'å' then

OutStream.Write(Byte3)

else if TextToWrite[i] = 'Æ' then

OutStream.Write(Byte4)

else if TextToWrite[i] = 'Ø' then

OutStream.Write(Byte5)

else if TextToWrite[i] = 'Å' then

OutStream.Write(Byte6)

else

OutStream.Write(TextToWrite[i]);

end;

// Save the file

TempBlobLocal2.CreateInStream(IStream);

DownloadFromStream(IStream, '', '', '', FileName);

end;

Was this reply helpful? Yes No
Suggested answer

YUN ZHU 90,070 Super User 2025 Season 2 on at

Like (1)

Report

How to save an ANSI file from Business Central

Hi, The following four types are standard. If you need others, you need to use external services such as Power Automate, Azure Function, etc.

Hope this helps as well

Thanks.

ZHU

Was this reply helpful? Yes No
Suggested answer

Khushbu Rajvi. 18,989 Super User 2025 Season 2 on at

Like (2)

Report

How to save an ANSI file from Business Central

Please follow below links: https://learn.microsoft.com/en-us/training/modules/use-azure-functions/

https://community.dynamics.com/blogs/post/?postid=4eb91892-f456-4c59-8eeb-4148c4618b38

https://www.dynamicsminds.com/wp-content/uploads/2023/06/DynamicsMinds_BC_StefanoDemiliani_AzureFunctionsDeepDiveForBCDevs.pdf

https://demiliani.com/2023/05/31/dynamics-365-business-central-azure-functions-and-telemetries-best-practices/

Was this reply helpful? Yes No
MS-07051042-0 143 on at

Like (3)

Report

How to save an ANSI file from Business Central

Hi KP,

Thank you for your reply.

I use the default instream functionality already. I have the values in a TempBlob and do this to make the file:

TempBlob.CreateInStream(IStream, TEXTENCODING::UTF8);

//TempBlob.CreateInStream(IStream, TEXTENCODING::Windows);

//TempBlob.CreateInStream(IStream, TEXTENCODING::MSDos);

Filename := 'Test.txt';

DownloadFromStream(IStream, '', '', '', Filename);

I have tried UTF8, Windows and MSDos and none of them make an ANSI-encoded file.

How do I use Azure functions? I have never done that. I don't use "namespace" or "using" in AL.

Best regards,

Morten

Was this reply helpful? Yes No
Suggested answer

KP - Solution Archi... 652 on at

Like (2)

Report

How to save an ANSI file from Business Central

Hi,

You can use the default in-stream and outstream method for saving the ANSI file format Additionally Azure functions can be used

Reference link - https://learn.microsoft.com/en-us/dotnet/standard/io/

Thanks,

KP

Was this reply helpful? Yes No