这个该怎么操作。

另外这个字符串中的长度不受限制，该要定义什么变量

String型变量不爱字符长度限制的。

WriteAllText可以写入，不过它只能保存Txt文件。

为何出错：

Dim a  As String
a = " <?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
<!-- Processed by GE-Path -->
<Document>
<name>New-Path</name>
  <open>1</open>
   <LookAt>
<longitude>2.2</longitude>
<latitude>1.11</latitude>
<range>1000000</range>
<tilt>0</tilt>
<heading>0</heading>
   </LookAt>
   <Style id="sgrillo1">
     <IconStyle>
 <Icon>

<href>root://icons/palette-4.png</href>
         <y>128</y>
<w>32</w>
<h>32</h>
</Icon>
     </IconStyle>
     <LabelStyle>
 <color>ffffffff</color>
        <scale>1</scale>
      </LabelStyle>
   </Style>
<Folder>
  <open>0</open>
 <name>Names</name>
<Placemark>
     <name>dd</name>
   <description>ee</description>
   <styleUrl>#sgrillo1</styleUrl>
   <Point>
   <altitudeMode>clampedToGround</altitudeMode>
      <coordinates>2.2, 1.11</coordinates>
  </Point>
</Placemark>
</Folder>
</Document>
</kml>  "

FileSys.WriteAllText("C:\\Documents and Settings\\Administrator\\桌面\\wwffw.kml", a , True,Encoding.UTF8)

对A变量的赋值不成功(这里出错),要如何更改这个代码：

Dim a  As String
a = " .....

.......

......"

FileSys.WriteAllText("C:\\Documents and Settings\\Administrator\\桌面\\wwffw.kml", a , True,Encoding.UTF8)

反方向操作又可以：

比如桌面有一个正确的qq.kml文件，我读取这个文件赋值到一个字符变量中，同时又重命名到一个新的*.kml文件，并启动这个*.kml文件，成功，

Dim s As String = FileSys.ReadAllText("C:\\Documents and Settings\\Administrator\\桌面\\qq.kml", Encoding.UTF8)
Output.Show(s)
FileSys.WriteAllText("C:\\Documents and Settings\\Administrator\\桌面\\aa.kml", s, True, Encoding.UTF8)

所以3楼的代码中的那个字符变量的正确赋值是一个关键,请教大家该如何操作

写入这种格式就麻烦了。

1、字符中的引号都要改成双引号

2、每行后面都要加换行符和连接符

如:

Dim a  As String
a = " <?xml version=""1.0"" encoding=""UTF-8""?>" & vbcrlf & _
 "<kml xmlns=""http://earth.google.com/kml/2.2"">" & vbcrlf & _
"<!-- Processed by GE-Path -->" & vbcrlf & _
"<Document>" & vbcrlf & _
"<name>New-Path</name>" & vbcrlf & _
"  <open>1</open>" & vbcrlf & _
"   <LookAt>" & vbcrlf & _
"<longitude>2.2</longitude>" & vbcrlf & _
"<latitude>1.11</latitude>" & vbcrlf & _
"<range>1000000</range>" & vbcrlf & _
"<tilt>0</tilt>" & vbcrlf & _
"<heading>0</heading>" & vbcrlf & _
"   </LookAt>" & vbcrlf & _
"   <Style id=""sgrillo1"">" & vbcrlf & _
"     <IconStyle>" & vbcrlf & _
" <Icon>" & vbcrlf & _
"<href>root://icons/palette-4.png</href>" & vbcrlf & _
"         <y>128</y>" & vbcrlf & _
"<w>32</w>" & vbcrlf & _
"<h>32</h>" & vbcrlf & _
"</Icon>" & vbcrlf & _
"     </IconStyle>" & vbcrlf & _
"</kml>  "
\'……
ys.WriteAllText("C:\\Documents and Settings\\Administrator\\桌面\\wwffw.kml", a , True,Encoding.UTF8)

为什么我把上面代码的前与尾（即下面红色部分），复制贴粘到新代码每一句的前与尾，提示出错，好像还是不能赋值

" <?xml version=""1.0"" encoding=""UTF-8""?>" & vbcrlf & _
"......." & vbcrlf & _

vbcrlf 是回车换行符.

在代码中拆分和合并语句

将单个语句拆分为多行

编写代码时，有时会创建一些很长的语句，使得您必须在代码编辑器中水平滚动。虽然这并不影响代码的运行，但会影响代码的阅读。
在这种情况下，应该考虑将单个长语句拆分为几行。
在要将该行断开的位置处使用行继续符，它是一个下划线 (_)，该下划线必须紧跟在空格后，并且在它后面紧跟行终止符（回车）。

还是不行，附代码：

Dim a  As String
a = "<?xmlversion="1.0"encoding="UTF-8"?>" & vbcrlf & _
"<kmlxmlns="http://earth.google.com/kml/2.2">" & vbcrlf & _
"<!--ProcessedbyGE-Path-->" & vbcrlf & _
"<Document>" & vbcrlf & _
"<name>New-Path</name>" & vbcrlf & _
"<open>1</open>" & vbcrlf & _
"<LookAt>" & vbcrlf & _
"<longitude>2.2</longitude>" & vbcrlf & _
"<latitude>1.11</latitude>" & vbcrlf & _
"<range>1000000</range>" & vbcrlf & _
"<tilt>0</tilt>" & vbcrlf & _
"<heading>0</heading>" & vbcrlf & _
"</LookAt>" & vbcrlf & _
"<Styleid="sgrillo1">" & vbcrlf & _
"<IconStyle>" & vbcrlf & _
"<Icon>" & vbcrlf & _
"<href>root://icons/palette-4.png</href>" & vbcrlf & _
"<y>128</y>" & vbcrlf & _
"<w>32</w>" & vbcrlf & _
"<h>32</h>" & vbcrlf & _
"</Icon>" & vbcrlf & _
"</IconStyle>" & vbcrlf & _
"</kml>"
Output.Show(a)
FileSys.WriteAllText("C:\\Documents and Settings\\Administrator\\桌面\\mmmm.kml", a, True, Encoding.UTF8)