问题描述
我有这段代码是从文本文件中读取的,当行以"Q"开头时,它是一个问题,而"R"和"W"分别是错误的和正确的答案,它们被读入形状.但是问题是,如果文本中的任何地方都有逗号,我的powerpoint宏会将其视为新行.对如何解决此问题有帮助吗?这是代码
I have this code that reads from text file, when line starts with "Q" its a question and "R" and "W" are wrong and right answers respectively that are read unto shapes.However the problem is, if there is a comma anywhere in the text, my powerpoint macro sees it as a new line. any help on how to fix this please?Here is the code
Open ActivePresentation.Path & "\" & "questions.txt" For Input As #1
nextSlideNum = 1
nextAnswerNum = 1
Do Until EOF(1)
Input #1, nextLine
If Left$(nextLine, 1) = "Q" Then 'The line starts with Q; it's a question
nextSlideNum = nextSlideNum + 1
Set oSld = _
ActivePresentation.Slides.AddSlide(nextSlideNum, _
ActivePresentation.SlideMaster.CustomLayouts(2))
oSld.Shapes(1).TextFrame.TextRange.Text = _
Trim(Right$(nextLine, Len(nextLine) - 1))
nextAnswerNum = 1
ElseIf Left$(nextLine, 1) = "R" Then 'Right answer
Set oShp = ActivePresentation.Slides(nextSlideNum).Shapes _
.AddShape(msoShapeActionButtonCustom, 100, _
120 + (85 * (nextAnswerNum - 1)), 500, 75)
oShp.TextFrame.TextRange.Text = Trim(Right$(nextLine, Len(nextLine) - 1))
oShp.ActionSettings(ppMouseClick).Action = ppActionRunMacro
oShp.ActionSettings(ppMouseClick).Run = "RightAnswerButton"
nextAnswerNum = nextAnswerNum + 1
ElseIf Left$(nextLine, 1) = "W" Then 'Wrong answer
Set oShp = ActivePresentation.Slides(nextSlideNum).Shapes _
.AddShape(msoShapeActionButtonCustom, 100, _
120 + (85 * (nextAnswerNum - 1)), 500, 75)
oShp.TextFrame.TextRange.Text = Trim(Right$(nextLine, Len(nextLine) - 1))
oShp.ActionSettings(ppMouseClick).Action = ppActionRunMacro
oShp.ActionSettings(ppMouseClick).Run = "WrongAnswerButton"
nextAnswerNum = nextAnswerNum + 1
ElseIf Trim(nextLine) = "" Then
'Ignore blank lines
Else
MsgBox _
"Sorry, I don't know what to do with: " _
& Chr$(13) & nextLine
End If
Loop
推荐答案
使用 Line Input
代替 Input
.
Input
进行一些解析,包括用逗号定界,并转换一些值,例如#TRUE#和#NULL#. Line Input
输入完整的行,并且不进行任何变换.
Input
does some parsing, including delimiting by comma, and transforming some values such as #TRUE# and #NULL#. Line Input
inputs the complete line and does no transforming.
这篇关于为什么我的VBA代码将逗号视为换行符?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!