Question about Computers & Internet

1 Answer

Program can you help me to make my vb project run? my problem is "what code shall i use in displaying number of words as i enter a sentence" thank you..your code can help a lot to run my program.. god bless...

Posted by on

1 Answer

  • Level 1:

    An expert who has achieved level 1.

  • Contributor
  • 1 Answer

Sub aa()
'
' aa Macro
'
'
Dim a As String
a = "how are you this is dharani"
Dim leng, cnt As Integer
leng = 1
cnt = 0
While leng <= Len(RTrim(a))
If Mid(a, leng, 1) = " " Then
cnt = cnt + 1
End If
leng = leng + 1
Wend
If Len(RTrim(a)) > 0 Then
cnt = cnt + 1
End If
MsgBox Str(cnt) + " Words"
End Sub

Posted on Feb 28, 2008

1 Suggested Answer

6ya6ya
  • 2 Answers

SOURCE: I have freestanding Series 8 dishwasher. Lately during the filling cycle water hammer is occurring. How can this be resolved

Hi,
a 6ya expert can help you resolve that issue over the phone in a minute or two.
best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
the service is completely free and covers almost anything you can think of (from cars to computers, handyman, and even drones).
click here to download the app (for users in the US for now) and get all the help you need.
goodluck!

Posted on Jan 02, 2017

Add Your Answer

Uploading: 0%

my-video-file.mp4

Complete. Click "Add" to insert your video. Add

×

Loading...
Loading...

Related Questions:

Tip

How to Open a Password Protected Word 2003 Document?


Microsoft Word document offer password protection which allows you to protect your sensitive information containing in your Word file, then anyone who wish to access to your file should enter the correct alpha-numeric password firstly. If you cannot open a secured word 2003 document, it must be irritating, right? This article will show you three effective options to <a href="http://recoverlostpassword.com/products/wordpasswordrecovery.html"><u>open a password protected word 2003 document</u></a>.<br /> <br /> <img src="open-password-protected-word-document.jpg" /><br /> <b><br /> <br /> Method 1: Using VB.NET<br /> </b><br /> <br /> The following code sample shows how to open a password protected word document using VB.NET<br /> <br /> [VB.NET CODE STARTS]<br /> Dim objWord As Object<br /> Dim strPassword as string = "PASSWORD"<br /> <br /> objWord = CreateObject("Word.Application")<br /> objWord.visible = False<br /> objWord.application.WindowState = 2<br /> objWord.application.DisplayAlerts = False<br /> <br /> Try<br /> objWord.Documents.Open("YOUR DOCUMENT FULL PATH NAME", PasswordDocument:=strPassword )<br /> Catch ex As Exception<br /> Msgbox ("Cannot open word document" ,vbExclamation , "Password Protected")<br /> End Try<br /> [VB.NET CODE ENDS]<br /> <br /> <br /> <b>Method 2: Obtain the password from the source</b><br /> <br /> <br /> The following steps sample shows how to obtain the password from the source<br /> Step 1: Check with the word document source for the password.<br /> Ask yourself where does the locked word 2003 document come from? Supposing it created by someone else, then ask the creator for the password. If your own are the word document source, you will need to locate the lost password.<br /> Step 2: Verify the password with the source.<br /> Make sure you have the right password on hand. Verify the password can save you time. The other reason to do so is that you never know they might have given you the wrong password in the first place.<br /> Step 3: Enter the correct password.<br /> Type in the correct password at the "Enter Password To Open File" dialog box. After you have entered the password, click the OK button.<br /> <br /> <b><br /> Method 3: Using password-cracking software</b><br /> <br /> <br /> If so far you still didn't solve your problem, then you'll have to go buy one of password-cracking software available for this purpose. So go to the link in "Source(s)" and download the <a href="http://www.recoverlostpassword.com/products/wordpasswordrecovery.html">word password cracker</a> program. It comes with a trial version and follows the walk through. You only need to use the program to open the locked word document, choose the type of attacks for word document with strong encryption. Then the program will start and keep running until find out the lost word password for you to open.<br /> Source(s):Good Search: <a href="http://recoverlostpassword.com/products/wordpasswordrecovery.html">SmartKey Word Password Recovery<br /> </a><br /> <br /> Keep in mind that there nothing will miss as long as you use the corresponding password to<a href="http://recoverlostpassword.com/products/wordpasswordrecovery.html"> <u>open your password protected word document</u></a>. <br /> <br /> Article Source:<a href="http://recoverlostpassword.com/article/open-password-protected-word-2003-document.html">http://www.recoverlostpassword.com/article/open-password-protected-word-2003-document.html</a> <br />

on Apr 15, 2011 | Computers & Internet

1 Answer

We want to make mini project in vb and we want that it is a veriety and useful and also in less expence


try to this topic. HOW TO CONVERT NUMBERS INTO WORDS. you can search though internet the free program for converting numbers into words.

Dec 23, 2010 | Microsoft Visual Basic 6.0 for PC

2 Answers

Source code for word count


Haha, i wrote one of thee a while ago for a competition. You need to us e the char at function mate :D
Inside a for loop
Ill havea look for you though :D

Sep 09, 2008 | ArcMedia JavaScript Source Code 3000 Pro...

1 Answer

Formatting/Rounding number


forget its not your cup of tea

Jul 31, 2008 | Computers & Internet

2 Answers

Sentence


send me your code -- and I can fix it

Feb 27, 2008 | Computers & Internet

2 Answers

Visual basic 6.0


Use a compare (instr) command to search the sentence for punctution and spaces. Increment a variable for each word found, resetting the search string and retaining the start position of each find.

Feb 27, 2008 | Computers & Internet

2 Answers

Help me


this the code for your problem. by the way this for vb6.0

Sub CountCharacters(Text As String)
Dim iVowel As Integer
Dim iCons As Integer
Dim iNum As Integer
Dim iSpace As Integer
Dim iOther As Integer

Dim cnt As Integer
Dim sChar As String

For cnt = 1 To Len(Text)
sChar = LCase(Mid(Text, cnt, 1))

Select Case sChar
Case "a", "e", "i", "o", "u" ' And sometimes "y"?
' Vowel
iVowel = iVowel + 1
Case "a" To "z"
' Includes the first case, but VB matches the first case and stops
iCons = iCons + 1
Case "0" To "9"
' Numbers
iNum = iNum + 1
Case " ", vbTab, vbLf
' Space characters
' Not including vbCr as this will likely be dealing with Windows text
' and I only want to match one character for a newline
iSpace = iSpace + 1
Case Else
If sChar <> vbCr Then iOther = iOther + 1
End Select
Next cnt

Debug.Print "Text: " & Text
Debug.Print "Vowels: " & CStr(iVowel)
Debug.Print "Consonants: " & CStr(iCons)
Debug.Print "Numbers: " & CStr(iNum)
Debug.Print "Space characters: " & CStr(iSpace)
Debug.Print "Other: " & CStr(iOther)
End Sub

Feb 21, 2008 | Computers & Internet

Not finding what you are looking for?

Open Questions:

0 Answers

Effective $ approved lost love spell caster 0784318189 traditional healer in Umgababa Umhlanga Rocks Umlazi Verulam Warner Beach Hattingspruit DR OZ. MUSA TRADITIONAL & SPIRITUAL HEALER +2********** s blessed with powerful Spirits [ ancestral powers] to meet all your needs to satisfaction, all my services are beyond human imagination, and many have always asked me what is behind my services because of their effect to their problems. I can cast spells no matter how far the client may be and my spells are guaranteed to work in 3 days i am here to treat, heal & pay attention to whoever has problems using true African herbs with the guidance of my strong spiritual powers.love spells,wealth charms,natural luck and guaranteed win of tenders like lotto and casino BIND US TOGETHER, break up spells, BREAKUP SPELL, BREAKUP SPELLS, CHANGE YOUR LOVER'S MIND SPELL, CURSE REMOVAL, divorce spells, DO LOVE SPELLS WORK, FERTILITY SPELLS, fortune teller, gay love spells, GOOD LUCK, GOOD LUCK CHARM, HEALERS, HEALING, Herbalist, HEX REMOVAL, love spells, LOVE SPELLS THAT WORK, LUCK SPELLS, LUCKY CHARMS, Magic love spells, MAGIC SPELLS, marriage spells, NATIVE HEALER, POWERFUL LOVE SPELLS, POWERFUL MONEY SPELL Pinetown new germanyQueensburgh Tongaat Umbogintwin Umdloti Umgababa Umhlanga Rocks Umlazi Verulam Warner Beach Hattingspruit Madadeni Namibia Botswana dubai newlands Swaziland Greytown Muden Hluhluwe Ingwavuma Mkuze Mtubatuba St Lucia Ubombo Balgowan Boston Byrne Dargle Hilton Howick Impendile Merrivale Mooi River Epumalanga New Hanover Pietermaritzburg Richmond Wartburg York Noodsberg Harburg Harding RamsgateHibberdene Ifafa Beach Margate Palm Beach Park Rynie Pennington Port Edward Port Shepstone Scottburgh Sezela Shelly Beach Southbroom St Michael's-on-Sea Umkomaas Umtentweni Umzinto Umzumbe Uvongo Widenham Bulwer Cedarville Franklin Himeville Ixopo Kokstad Matatiele Swartberg Umzimkulu Underberg Ballito Stanger Salt Rock Amanzimtoti Cato Ridge Doonside Drummond Durban ekuPhakameni Hillcrest Illovo Beach Isipingo Karridene Kingsburgh Kloof La-Lucia La Mercy inanda kwamashu overport Rocks Westville Winkelspruit Phoenix Chatsworth Dannhauser Hattingspruit Madadeni Utrecht Louwsburg Mahlabatini Nongoma Paulpietersburg Ulundi Vryheid Empangeni Eshowe Mtunzini Richards Bay Bergville Elandslaagte Estcourt Ladysmith Winterton Dundee Balgowan Boston Byrne Dargle Hilton Howick Impendile Merrivale Mooi River Uvongo Widenham Bulwer Cedarville Franklin Himeville Sydney, Melbourne, Brisbane, perth, Adelaide, golden coast_tweed, maltland, Canberra, Queanbeyan, central coast, Hobart, Wollongong, sunshine coast, Geelong Twonsville, cairns, Darwin, Toowoomba, ballarat, bendigo, albury_wodonga, Launceston, mackay, rockhampton, bunbury mildura wentworth, shepparton_mooroopha, port Macquarie, tamworth, traralgon_morwell, orange, geraldton,ellenbrook, dubbo, Bathurst, busselton,warmmbool, Albany Devonport, Lismore, alice springs CONTACT HIM +2********** DURBAN

Mar 23, 2017 | Palm Computers & Internet

Computers & Internet Logo

Related Topics:

103 people viewed this question

Ask a Question

Usually answered in minutes!

Top Computers & Internet Experts

Brian Sullivan
Brian Sullivan

Level 3 Expert

27725 Answers

kakima

Level 3 Expert

101406 Answers

David Payne
David Payne

Level 3 Expert

14160 Answers

Are you a Computer and Internet Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...