Osaiskohan kukaan muuntaa tätä https://www.ohjelmointiputka.net/koodivinkit/
Visual Basic 2008/2010:lle?
En tiedä onko tuollaisen pökäleen muuntamisessa mitään järkeä, mutta tässä se nyt kuitenkin toiveesi mukaisesti muunnettuna VB.Netiksi
Module Module1
Sub Main()
Console.Clear()
Console.Write("Kirjoita analysoitava teksti: ")
Dim Teksti = Console.ReadLine()
If SisältääKirosanan(Teksti) Then
Console.WriteLine("Lause sisältää yhden tai useamman kirosanan.")
Else
Console.WriteLine("Lauseesta ei löytynyt kirosanoja.")
Console.WriteLine("Vittu")
End If
Threading.Thread.Sleep(1000)
End Sub
Private Function SisältääKirosanan(ByVal teksti As String) As Boolean
Dim Kirosanat = New String() {"vittu", "saatana",
"perkele", "paska", "jumalauta", "helvetti",
"fuck", "shit", "wtf", "vitu"}
For Each Kirosana In Kirosanat
If teksti.ToLower.Contains(Kirosana) Then
Return True
End If
Next
Return False
End Function
End ModuleSitä en tosin tiedä miksi tuolla on tuo ystävällinen tervetulotoivotus wtf eli "Welcome to Facebook" mukana. Eihän vuonna 2004 edes ollut Facebookia.
Kiitos paljon mutta toimiiko tämä sulla/muilla Visual basic 2010 express? Mulla tulee vain form1 laatikko, sama mikä tulee aina kun aloittaa uuden projektin. Vai onko mulla järjestelmässä jotain häikkää?
Sinun kuuluu tehdä uusi komentoriviohjelma (console application).
Oisko kenelläkään tietoa miten vastaavan ohjelman sais tehtyä tilassa jossa voi käyttää copy pastea? Pystyyköhän esim. autoit'illä tekemään (sen käydessä voi käyttää copy pastea)? Vai onko olemassa valmista ohjelmaa joka löytää sanoja ja sana yhdistelmiä?
codemike kirjoitti:
Oisko kenelläkään tietoa miten vastaavan ohjelman sais tehtyä tilassa jossa voi käyttää copy pastea?
Mistä lähtien komentorivillä ei voi käyttää "copy pastea"?
Mutta jos haluaa Windowsissa näppärämmin leikepöydän kanssa toimivan ohjelman, niin kannattaa varmaan tehdä siitä Windows Forms ohjelma. Toiveesihan oli saada ohjelma, joka toimii samalla tavalla kuin se alkuperäinen, joten tein semmoisen. Aivan yhtä hyvin sen olisi saanut tehtyä toimimaan jollakin muulla tavalla.
Jokaisella, joka osaa edes auttavasti koodata VB.Netillä "on tietoa" miten vastaava tehdään esim. Windows Forms -sovelluksena.
codemike kirjoitti:
Pystyyköhän esim. autoit'illä tekemään?
Vaikken ole koskaan autoit:ä käyttänyt enkä tiedä siitä oikeastaan mitään, niin väittäisin että pystyy.
codemike kirjoitti:
Vai onko olemassa valmista ohjelmaa joka löytää sanoja ja sana yhdistelmiä?
Aika ympäripyöreä kysymys, mutta tyypillisesti jokainen tekstinkäsittelyohjelma ja tekstieditori, vaikkapa Notepad eli Muistio pystyy siihen.
Kiitos kaikesta avusta ja vastauksista mutta esim. Notepad löytää vain sanoja ei sana yhdistelmiä ja olisi muutenkin liian vaikea laajemmalle sanastolle. Mulla ainakin tulee leikepöydältä vain c^ komentorivi tilassa. En osaa Visual Basicin alkeitakaan enkä tarvi muuta kun edellä mainitun sovelluksen jonka yhdistän omaan autoit juttuuni (eli tietysti autoit'llä toimiva olisi paras) mutta jos joku kyhäisi forms tilassa toimivan (jos siinä tilassa toimii copy paste) niin olisin kyllä erittäin iloinen.
Jos et kerran osaa VB:tä, miksi ihmeessä haluat juuri VB:llä tehdyn ohjelman? Esimerkiksi seuraava nettisivu ajaa asian:
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>Sanailmoitus</title>
<script type="text/javascript">
/* <![CDATA[ */
function tarkista() {
var teksti = document.f.teksti.value.toLowerCase();
var sanat = document.f.sanat.value.toLowerCase().split(/, */);
var osumat = [];
for (var i = 0; i != sanat.length; ++i) {
if (sanat[i].length && teksti.indexOf(sanat[i]) > -1) {
osumat.push(sanat[i]);
}
}
document.f.osumat.value = osumat.join(", ");
}
/* ]]> */
</script>
</head>
<body>
<form name="f" onsubmit="return false;">
<dl>
<dt>Sanat</dt>
<dd><input type="text" size="80" name="sanat" value="saatana, perkele, helvetti" /></dd>
<dt>Teksti</dt>
<dd><textarea name="teksti" onchange="tarkista()" rows="25" cols="80"></textarea></dd>
<dd><button onclick="tarkista(); return false;">Tarkista</button></dd>
<dt>Osumat</dt>
<dd><input type="text" size="80" name="osumat" value="" /></dd>
</dl>
</form>
</body>
</html>Tallenna sivu jollain tekstieditorilla HTML-tiedostoksi (esim. kirosanat.html). Valitse enkoodaukseksi UTF-8, jos mahdollista. Tallennetun tiedoston voit yksinkertaisesti avata nettiselaimella.
codemike kirjoitti:
Mulla ainakin tulee leikepöydältä vain c^ komentorivi tilassa.
Niin, siis ilmeisesti painat ctrl+c. Mutta jos haluat liittää tekstiä komentoriville, niin valitse valikosta Muokkaa->Liitä.
Kiitos kaikille eiköhän näillä onnistu. Siis osaan sen verran autoit'ia mitä tarvitsen hommaani ja tuohon basiciin tai html'aan on helppo tehdä pienet muutokset. Ehkä nikkini mikä tuli valittua on hieman hämäävä mutta ehkä tulevaisuudessa osaan enemmän ohjelmointia kun laajentelen pikku hiljaa projektiani.
Aihe on jo aika vanha, joten et voi enää vastata siihen.