Trực tuyến Hạ Trường hợp chuyển đổi

I tried the code below. The most of time the running was stuck in on error goto 0 and no success in further steps .fireevent ("onchange"). It may be some way can optimize the process better. Please help me for it, thanks inadvance.

Public Sub makeselections()Dim ie As New InternetExplorer, var As String, ele As Objectvar = ThisWorkbook.Worksheets("Sheet2").Cells(1, 1).valueWith ie.Visible = True.Navigate2 "https://www.marketwatch.com/investing/stock/" & var & "/financials"While .Busy Or .readyState < 4: DoEvents: WendWith .document  .querySelector("#autocomplete_input").value = var  .querySelector("#investing_ac_button").ClickEnd WithWhile .Busy Or .readyState < 4: DoEvents: WendWith .documentDo On Error Resume Next   Set ele = .querySelector("[value^='/investing/stock/" & LCase(var) & "/financials/Income/quarter']") On Error GoTo 0 Loop While ele Is Nothing   .querySelector("[value^='/investing/stock/" & LCase(var) & "/financials/Income/quarter']").Selected = True   .querySelector(".financials select").FireEvent "onchange" End With End WithEnd Sub

Var1 is a list:

var1 <- list(c("Parts of a Day", "Time in Astronomy", "Star"),  c("Tree Tall", "Pine Tree"))

How to convert all the characters to lowercase? The desired answer is the following list:

var1 <- list(c("parts of a day", "time in astronomy", "star"),  c("tree tall", "pine tree"))

I used

as.list(tolower(var1))

But it gives the following answer with unwanted \

[[1]][1] "c(\"parts of a day\", \"time in astronomy\", \"star\")"[[2]][1] "c(\"tree tall\", \"pine tree\")"

Thanks.

Suppose we are passing a string that has several words.

Would there be a way to make the first or last letter of each word in the string to be lowercase or uppercase?

I tried the text info class but it only offers a capitalization method for every first character.

I can't really think of how it go about hard coding my own method.

def generate_tokens(sentence_list):    """ This function returns a list of lists of    clean tokens"""    final_tokens = []    for sentence in sentence_list:        new_text = re.sub("[^A-Za-z]"," ", sentence)        tokens = new_text.lower().split()        tokens = [el for el in tokens if el not in sw]        if tokens!=[]:            final_tokens.append(tokens[0])    return final_tokensfrom nltk.stem.porter import PorterStemmerstemmer = PorterStemmer()sw = nltk.corpus.stopwords.words('english')df["sentences"] = df.Content.astype(str).str.split()df["clean_tokens"] = df.sentences.apply(generate_tokens)total = []df.head()from sklearn.feature_extraction.text import CountVectorizervectorizer = CountVectorizer()X = vectorizer.fit_transform(df["clean_tokens"])print(X.toarray())

How can I correct it?

AttributeError                            Traceback (most recent call last)<ipython-input-101-3d88bc2d8f98> in <module>      2 vectorizer = CountVectorizer()      3 ----> 4 X = vectorizer.fit_transform(df["clean_tokens"])      5       6 print(X.toarray())~\Anaconda3\lib\site-packages\sklearn\feature_extraction\text.py in fit_transform(self, raw_documents, y)   1056    1057         vocabulary, X = self._count_vocab(raw_documents,-> 1058                                           self.fixed_vocabulary_)   1059    1060         if self.binary:~\Anaconda3\lib\site-packages\sklearn\feature_extraction\text.py in _count_vocab(self, raw_documents, fixed_vocab)    968         for doc in raw_documents:    969             feature_counter = {}--> 970             for feature in analyze(doc):    971                 try:    972                     feature_idx = vocabulary[feature]~\Anaconda3\lib\site-packages\sklearn\feature_extraction\text.py in <lambda>(doc)    350                                                tokenize)    351             return lambda doc: self._word_ngrams(--> 352                 tokenize(preprocess(self.decode(doc))), stop_words)    353     354         else:~\Anaconda3\lib\site-packages\sklearn\feature_extraction\text.py in <lambda>(x)    254     255         if self.lowercase:--> 256             return lambda x: strip_accents(x.lower())    257         else:    258             return strip_accentsAttributeError: 'list' object has no attribute 'lower'

i would like to know if it's possible check if one letter of a string is capitalized. Other way to see it, if all letters in the string are uppercase or lowercase. Example:

string a = "aaaaAaa"; string b = "AAAAAa"; if(??){ //Cheking if all the string is lowercase   cout << "The string a contain a uppercase letter" << endl;}if(??){ //Checking if all the string is uppercase       cout << "The string b contain a lowercase letter" << endl;}