vb apps

[god]

post here some VB apps u made, with source code if possible..
i just wrote this one 10 minutes ago cz i was bored, its not that good bas worth checking out! helpful if you have some full text that you need to change a certain word inside and the word is very frequent, fast and easy.. bas not very specific, edit the source code if u wanna make it better..
comments and criticisms are appreciated..bas bear in mind eno i did it just for fun :P
oh and file exit doesnt work, fix it in the source if you want its just 2 words of code, bas im too lazy to fix it cz i already uploaded :P


[[source isnt up'ping, will up it later]]

[SysTaMatIcS]

i didnt get it , wts it supposed to do?

[god]

lets say u wrote a biiig text talking about a person named "fady" , you want to change that person's name in ALL the text to "elie"
you just copy paste your text, put fady in the first textbox, and elie in the second, and it will change all the fady's to elie's , instead of manually changing them one by one which might take a lot of time

[SysTaMatIcS]

walla hehe thts gd somehow ill try it , its usefull btw
it worked
jumblat is *** jumblat is ***
i replaced jumblat by jaejae and it worked

[lebanese_a]

nice app!
bass the smart replace option only works if the string is in the middle of the world so I am guessing you did it uno replace only if the character before it is a space.

yalla waiting for the source

[SysTaMatIcS]

wts the source??????the calculations done?

[god]

el smart bel 3akes if its followed by a letter or abla fi letter deghre without a space, it wont be changed, i did it with spaces and some special characters (! w , w .) bas it could be done another way with ASCII identifiers bas eno i was just messin around, w systa. source = source code ya3ne the code of the program (its in vb 2005)

[lebanese_a]

I just re-did ur app in a console w not using the same logic (i think - uno 7assab ma fhemet how u did ur logic) ma elleh jledeh a3mela upload so here's the code.
oh and it will only replace the word eza la 7ala w ma fi walla virgule walla point .... 7ada

Module Main
    Sub Main()
        Try
            Dim Stock As Queue = New Queue
            Do
                Dim Sentence As String
                Console.Write("Enter the original sentence : ")
                Sentence = Console.ReadLine
                If Sentence = Nothing Then Exit Do
                Dim OriginalWord As String
                Console.Write("Enter the word to change : ")
                OriginalWord = Console.ReadLine
                Dim Replacement As String
                Console.Write("Enter the word to change with : ")
                Replacement = Console.ReadLine
                Dim Words As Array
                Words = Sentence.Split(" ")
                Dim Word As String
                For Each Word In Words
                    If Word = OriginalWord Then Word = Replacement
                    Stock.Enqueue(Word)
                Next
                Do Until Stock.Count = 0
                    Console.Write(Stock.Dequeue & " ")
                Loop
                Console.WriteLine()
                Console.WriteLine()
            Loop
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Console.WriteLine()
        Console.Write("Press ENTER to continue")
        Console.ReadLine()
    End Sub
End Module

oh and how do you paste something in a variable??

massalane I wanted to tell the user write /CP/ to paste the clipboard bass ma l2it kif fiyeh 7at l clipboard bil variable "Sentence"