Dim strtext As String
Private Sub Command1_Click()
strtext = Replace(strtext, "/", vbCrLf)
strtext = Replace(strtext, "\", vbCrLf)
Text1.Text = strtext
End Sub
Private Sub Form_Load()
strtext = "可以看出,\经济独立/是高收入\女性独身/的主要原因。这使她们不必再依赖于男性,不用通过婚姻来使自己获得\稳定/。她们更重视的是自己的感觉,本着“宁缺勿滥”的态度过着自己的生活。对感情的不信任也是高收入女性独身的主要原因。在某公关公司的江小姐说,原来非常喜欢听的一句歌词“我能想到最浪漫的事,就是和你一起\慢慢变老/”,可是现在发现都是如此的不现实。“我们都面临着太多的\诱惑/,连自己都不能保证爱的永久,怎么去要求男性呢?有时望着对面笑得灿烂的\男朋友/,我也不知道他是对我笑呢,还是对我另有所图。我已不太能相信\异性/的真情了。"
Text1.Text = strtext
End Sub
Private Sub Form_Load()
Dim aa, i
aa = "可以看出,\经济独立/是高收入\女性独身/的主要原因。这使她们不必再依赖于男性,不用通过婚姻来使自己获得\稳定/。她们更重视的是自己的感觉,本着“宁缺勿滥”的态度过着自己的生活。对感情的不信任也是高收入女性独身的主要原因。在某公关公司的江小姐说,原来非常喜欢听的一句歌词“我能想到最浪漫的事,就是和你一起\慢慢变老/”,可是现在发现都是如此的不现实。“我们都面临着太多的\诱惑/,连自己都不能保证爱的永久,怎么去要求男性呢?有时望着对面笑得灿烂的\男朋友/,我也不知道他是对我笑呢,还是对我另有所图。我已不太能相信\异性/的真情了。"
For i = 1 To Len(aa)
If Mid(aa, i, 1) = "/" Then
Text1.Text = Text1.Text + vbCrLf
ElseIf Mid(aa, i, 1) = "\" Then
Text1.Text = Text1.Text + vbCrLf
Else
Text1.Text = Text1.Text + Mid(aa, i, 1)
End If
Next
End Sub