Как конвертировать каталог с HTML файлами в RTF файлы на C# и .NET
Полный код
GitHubusing System;
using System.IO;
using SautinSoft;
namespace Sample
{
class Test
{
static void Main(string[] args)
{
// Get your free 30-day key here:
// https://sautinsoft.com/start-for-free/
// Convert multiple HTML to RTF files.
// If you need more information about "HTML to RTF .Net"
// Email us at: [email protected].
ConvertMultipleHtmlToRtf();
}
public static void ConvertMultipleHtmlToRtf()
{
SautinSoft.HtmlToRtf h = new SautinSoft.HtmlToRtf();
HtmlConvertOptions opt = new HtmlConvertOptions();
opt.OutputFormat = HtmlToRtf.OutputFormat.Rtf;
string inpFolder = @"..\..\..\Testing HTMLs\";
string outFolder = new DirectoryInfo(Directory.GetCurrentDirectory()).CreateSubdirectory("RTF").FullName;
string[] inpFiles = Directory.GetFiles(inpFolder, "*.htm*");
int total = inpFiles.Length;
int currCount = 1;
int successCount = 0;
foreach (string inpFile in inpFiles)
{
string fileName = Path.GetFileName(inpFile);
Console.Write("{0:D2} of {1} ... {2}", currCount, total, fileName);
currCount++;
string outFile = Path.Combine(outFolder, Path.ChangeExtension(fileName, ".rtf"));
if (h.Convert(inpFile, outFile, opt))
{
successCount++;
Console.WriteLine(" Ok!");
}
else
{
Console.WriteLine(" Error!");
}
}
Console.WriteLine("{0} of {1} HTML(s) converted successfully!", successCount, total);
Console.WriteLine("Press any key ...");
Console.ReadKey();
// Open the result for demonstration purposes.
System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(outFolder) { UseShellExecute = true });
}
}
}
Imports System
Imports System.IO
Imports SautinSoft
Namespace Sample
Friend Class Test
Shared Sub Main(ByVal args() As String)
' Get your free 30-day key here:
' https://sautinsoft.com/start-for-free/
' Convert multiple HTML to RTF files.
' If you need more information about "HTML to RTF .Net"
' Email us at: [email protected].
ConvertMultipleHtmlToRtf()
End Sub
Public Shared Sub ConvertMultipleHtmlToRtf()
Dim h As New SautinSoft.HtmlToRtf()
Dim opt As New HtmlConvertOptions()
opt.OutputFormat = HtmlToRtf.OutputFormat.Rtf
Dim inpFolder As String = "..\..\..\Testing HTMLs\"
Dim outFolder As String = (New DirectoryInfo(Directory.GetCurrentDirectory())).CreateSubdirectory("RTF").FullName
Dim inpFiles() As String = Directory.GetFiles(inpFolder, "*.htm*")
Dim total As Integer = inpFiles.Length
Dim currCount As Integer = 1
Dim successCount As Integer = 0
For Each inpFile As String In inpFiles
Dim fileName As String = Path.GetFileName(inpFile)
Console.Write("{0:D2} of {1} ... {2}", currCount, total, fileName)
currCount += 1
Dim outFile As String = Path.Combine(outFolder, Path.ChangeExtension(fileName, ".rtf"))
If h.Convert(inpFile, outFile, opt) Then
successCount += 1
Console.WriteLine(" Ok!")
Else
Console.WriteLine(" Error!")
End If
Next inpFile
Console.WriteLine("{0} of {1} HTML(s) converted successfully!", successCount, total)
Console.WriteLine("Press any key ...")
Console.ReadKey()
' Open the result for demonstration purposes.
System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(outFolder) With {.UseShellExecute = True})
End Sub
End Class
End Namespace
Если вам нужен пример кода или у вас есть вопрос: напишите нам по адресу [email protected] или спросите в онлайн-чате (правый нижний угол этой страницы) или используйте форму ниже: