🚀 go-pugleaf

W dniu wtorek, 26 maja 2015 13:21:14 UTC+2 użytkownik dddddddd napisał:
> W dniu 2015-05-26 o 12:44, dddddddd pisze:
> >
> > Jest jakaś łatwiejsza opcja edycji makra (czyli klikam edytuj makro,
> > klikam przycisk nagrywania i dogrywam do niego kolejne funkcje :)
> > ew. pomóżcie w łączeniu makr
> >
> 
> a może istnieje jakieś proste oprogramowanie pod windows które by 
> realizowało funkcję "znajdź i zamień" na jednym pliku ale kilku 
> wyrażeniach, czyli żeby z automatu poszło:
> znajdź "ABC" zamień na "1234"
> znajdź "BCD" zamień na "2345"
> itd - żebym mógł dopisać sporo pozycji i nie musiał każdorazowo 
> wyszukiwać ręcznie
> 
> -- 
> Pozdrawiam
> Łukasz

Ja takie rzeczy robię w JS.

Tu masz listing do konwersji kodowania, przerób go do swoich potrzeb.


*************************************

<!DOCTYPE html>

<html>

<head>

<!-- hta:application     icon = "e:/kalk.ico"  / -->  <!-- info ze to aplikacja oraz ikonka okienka windows -->
<meta http-equiv="Content-type" content="text/html; charset=windows-1250">

<title> KONWERSJA DOS/WINDOWS </ title> 

</head>



<body>

<h1>KONWERSJA DOS/WINDOWS</h1><br>

<button onClick="konw()">Konwertuj...</button>

<script>

function konw()
{

var fso, f, mLine;
var m_plik;

fso = new ActiveXObject("Scripting.FileSystemObject");

m_plik1='LI_POKW.csv';               // lista
m_plik2='LI_POKWa.csv';              // wynik


// pobranie danych z pliku .csv lub .txt

var t, line1, line2;

f1 = fso.OpenTextFile(m_plik1, 1);      // dane tekstowe DOS
f2 = fso.CreateTextFile(m_plik2, 2);    // dane tekstowe Windows


 
t=f1.ReadAll();




// konwersja z DOS na windows-1250

x=t.replace(/¤+/g,'Ą');
t=x;

x=t.replace(/Ź+/g,'Ć');
t=x;

x=t.replace(/¨+/g,'Ę');
t=x;

x=t.replace(/ť+/g,'Ł');
t=x;

x=t.replace(/ă+/g,'Ń');
t=x;

x=t.replace(/ŕ+/g,'Ó');
t=x;

x=t.replace(/--+/g,'Ś');
t=x;

x=t.replace(/˝+/g,'Ż');
t=x;

x=t.replace(/Ť+/g,'Ź');
t=x;




f2.Write(t);


f1.Close();
f2.Close();

}

</script>


</body>
</html>

***************

Uruchamiasz jak .exe.

Andrzej.