|
FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile |
| | | | | |
| Gere uma Tabela HTML com wlanguage |
| Iniciado por Boller, 22,jun. 2024 01:18 - 1 respuesta |
| |
| | | |
|
| |
Miembro registrado
4.520 mensajes |
|
| Publicado el 22,junio 2024 - 01:18 |
PROCEDURE GeraTabelaHTML()
sHTML is string
sHTML += "<!DOCTYPE html>"
sHTML += "<html lang='en'>"
sHTML += "<head>"
sHTML += "<meta charset='UTF-8'>"
sHTML += "<meta name='viewport' content='width=device-width, initial-scale=1.0'>"
sHTML += "<title>Comandos WLanguage</title>"
sHTML += "<style>"
sHTML += "table {width: 100%; border-collapse: collapse;}"
sHTML += "th, td {border: 1px solid #dddddd; text-align: left; padding: 8px;}"
sHTML += "th {background-color: #f2f2f2;}"
sHTML += "tr:nth-child(even) {background-color: #f9f9f9;}"
sHTML += "</style>"
sHTML += "</head>"
sHTML += "<body>"
sHTML += "<h1>Comandos WLanguage</h1>"
sHTML += "<table>"
sHTML += "<tr><th>Comando</th><th>Descrição</th><th>Link</th></tr>"
FOR EACH linha OF ListaComandos
sHTML += "<tr>"
sHTML += "<td>" + linha.Comando + "</td>"
sHTML += "<td>" + linha.Descricao + "</td>"
sHTML += "<td><a href='" + linha.Link + "'>" + linha.Link + "</a></td>"
sHTML += "</tr>"
END
sHTML += "</table>"
sHTML += "</body>"
sHTML += "</html>"
fSaveText(sHTML, "C:\Caminho\Para\Salvar\comandos_wlanguage.html")
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4.520 mensajes |
|
| Publicado el 22,junio 2024 - 01:21 |
PROCEDURE GeraTabelaHTMLOrdenada()
sHTML is string
sHTML += "<!DOCTYPE html>"
sHTML += "<html lang='en'>"
sHTML += "<head>"
sHTML += "<meta charset='UTF-8'>"
sHTML += "<meta name='viewport' content='width=device-width, initial-scale=1.0'>"
sHTML += "<title>Comandos WLanguage</title>"
sHTML += "<style>"
sHTML += "table {width: 100%; border-collapse: collapse; margin-bottom: 20px;}"
sHTML += "th, td {border: 1px solid #dddddd; text-align: left; padding: 8px;}"
sHTML += "th {background-color: #f2f2f2;}"
sHTML += "tr:nth-child(even) {background-color: #f9f9f9;}"
sHTML += "</style>"
sHTML += "</head>"
sHTML += "<body>"
sHTML += "<h1>Comandos WLanguage</h1>"
current_letter is string = ""
FOR EACH linha OF ListaComandos ORDER BY Comando
IF Left(linha.Comando, 1) <> current_letter THEN
IF current_letter <> "" THEN
sHTML += "</table>"
END
current_letter = Left(linha.Comando, 1)
sHTML += "<h2>" + current_letter + "</h2>"
sHTML += "<table>"
sHTML += "<tr><th>Comando</th><th>Descrição</th><th>Link</th></tr>"
END
sHTML += "<tr>"
sHTML += "<td>" + linha.Comando + "</td>"
sHTML += "<td>" + linha.Descricao + "</td>"
sHTML += "<td><a href='" + linha.Link + "'>" + linha.Link + "</a></td>"
sHTML += "</tr>"
END
sHTML += "</table>"
sHTML += "</body>"
sHTML += "</html>"
// Salva o conteúdo HTML em um arquivo
fSaveText(sHTML, "C:\Caminho\Para\Salvar\comandos_wlanguage_ordenado.html")
Info("Tabela HTML gerada com sucesso em: C:\Caminho\Para\Salvar\comandos_wlanguage_ordenado.html")
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|