Hello All!
I researched the following code.. but i'm stumped about moving further with my project.
I'm trying to make a script that reads a .txt file, grab text between " " quotes, then typing that text out in addition to SendKey {Enter] (to make another paragraph) Sendkey / (the divide sign?) then another {Enter} for another paragraph
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\Philip\Dropbox\IFTTT\Twitter\Text.txt, ForReading)
Do Until objFile.AtEndOfStream
strText = ""
strCharacter = objFile.Read(1)
If strCharacter = Chr(34) Then
Do Until objFile.AtEndOfStream
strNewCharacter = objFile.Read(1)
If strNewCharacter = Chr(34) Then
Exit Do
End If
If strNewCharacter <> "" Then
strText = strText & strNewCharacter
End If
Loop
Wscript.Echo strText
End If
Loop
To my understanding, the above script grabs every text between " " quotes within the .txt file. Once it grabs the texts between " " quotes, I want the program to then do the following.
Sendkeys {ENTER}, //press the enter key
Sendkeys
{NUMPADDIV} //press the / key
(type the items inside the " " quotes) //types out texts between the " " quotes
Example:
Text file contains: #grocerylist "groceries are" "eggs.12" "bacon.5"
Assuming a text file is open, the computer will type out the following
(Enter) //a new line
/groceries are eggs.12 bacon.5
(Enter) //a new line
I hope that makes sense! Not sure how to collaborate the above inquiries into a single script :(
