EXCEL VBA 怎样读取文本文件中某一位置的数？-CSDN论坛

论坛帮助

CSDN论坛 > 其他开发语言 > Office开发/ VBA

EXCEL VBA 怎样读取文本文件中某一位置的数？ [问题点数：100分，结帖人CSDN]

⋅[求助]分组查询同时返回组内第1行的某个字段 ⋅升级VS后调用DLL出错 ⋅EXCEL VBA 怎样读取文本文件中某一位置的数？ 更多帖子 关注私聊空间博客 yangmijun 本版专家分：0 结帖率 100%: 有一些程序自动生成的txt文件，我想用VBA将某一行中的数读到EXCEL中的一个格中。数据有两种情况：

1.数据所在行数固定，假如在第50行中固定会有“DATA 003   ＝   120.56”的字样，我就想把这个120.56读到EXCEL中，并将其格式改为数值，但要保证读取正确，就是说必须读“DATA 003”的数据，同一行中还有其他数据。

2.数据是用循环语句输出的
形如：
           MDATA
    NUM 1 ＝ 105     SIZE 1 ＝ 123
    NUM 2 ＝ 106     SIZE 2 ＝ 456
    NUM 3 ＝ 107     SIZE 3 ＝ 789
首先，数据的起始行数不确定，就是说不能肯定“NUM 1 ＝ 105     SIZE 1 ＝ 123
” 在文本的第几行，但前一行一定会有“MDATA”字样。然后数据组数不确定，不一定只有3组，后面可能会排到 “NUM 200  SIZE 200”，最后，同一行中数据不止一列，我如果只想读“NUM”列应该怎么办？
或者，我只想读“SIZE”列该怎么办？

0 2006-12-16 23:45:23

回复数 3 只看楼主引用举报楼主

⋅怎样查找连接网络的进程中的可执行组件(DLL) ⋅中文字体的问题，有请繁体系统的朋友 ⋅如何判断当前键盘上是否有winkey键？ 更多帖子 关注私聊空间博客 ChinaOBS 本版专家分：14355 红花 2008年3月其他开发语言大版内专家分月排行榜第一 2007年1月其他开发语言大版内专家分月排行榜第一 2006年9月其他开发语言大版内专家分月排行榜第一 黄花 2008年7月其他开发语言大版内专家分月排行榜第二 2008年4月其他开发语言大版内专家分月排行榜第二 2008年2月其他开发语言大版内专家分月排行榜第二 2008年1月其他开发语言大版内专家分月排行榜第二 2006年8月其他开发语言大版内专家分月排行榜第二 2006年7月其他开发语言大版内专家分月排行榜第二 2006年6月其他开发语言大版内专家分月排行榜第二 蓝花 2008年9月其他开发语言大版内专家分月排行榜第三: 很简单，将文本文件的内容读到一个数组中，然后根据已知的条件判断并取出需要的数据。
如：

dim w1 as string,fPath as string,ww
w1=ReadTxtFile(fpath)'读取文本文件的函数
ww=split(w1,vbcrlf)'分解成数组
dim i as long
for i=0 to ubound(ww)
'在循环体内寻找特征行，如果行数固定，直接提取即可
next

0 2006-12-17 10:24:53

只看TA 引用举报 #1 得分 0

vba在文本文件中，找到指定的行后，在该行前面插入内容 eg: 比如我有一文本文档： aaaaaaaaaaaaaa bbbbbbbbbb ccccccccc ddddddddd eeeeeee fffffff ggggggggg iiiiiiiiiiiii

⋅怎样查找连接网络的进程中的可执行组件(DLL) ⋅中文字体的问题，有请繁体系统的朋友 ⋅如何判断当前键盘上是否有winkey键？ 更多帖子 关注私聊空间博客 ChinaOBS 本版专家分：14355 红花 2008年3月其他开发语言大版内专家分月排行榜第一 2007年1月其他开发语言大版内专家分月排行榜第一 2006年9月其他开发语言大版内专家分月排行榜第一 黄花 2008年7月其他开发语言大版内专家分月排行榜第二 2008年4月其他开发语言大版内专家分月排行榜第二 2008年2月其他开发语言大版内专家分月排行榜第二 2008年1月其他开发语言大版内专家分月排行榜第二 2006年8月其他开发语言大版内专家分月排行榜第二 2006年7月其他开发语言大版内专家分月排行榜第二 2006年6月其他开发语言大版内专家分月排行榜第二 蓝花 2008年9月其他开发语言大版内专家分月排行榜第三: 右一个不结帖的... ...

0 2006-12-18 12:36:08

只看TA 引用举报 #2 得分 0

VBA按行读取TXT文本文件 VBA按行读取TXT文本文件文件格式窗口上添加一个文本控件 TextBox1 属性设置 MultiLine ：True ScrollBars ：3 - fmScrollBarsBoth 代码如下： Private Sub CommandButton1_Click() Dim strTxt() As String Dim strRight() As String Dim str...

⋅为什么Csdn私自更改博客文章的版权协议 ⋅关于博客富文本编辑器的几个问题 ⋅请管理员看看我的访客数不对 更多帖子 关注私聊空间博客 UruseiBest 本版专家分：0: 思路：
循环读文件，直到第50行。
判断DATA 003的位置，在位置之后判断=号位置。
由于数据后可能跟着别的数据，判断读入的是否是数字或者“.”来获得数据。

循环读取每一行，
判断是否有："MDATA"
如果有，那么下一行开始
如果有NUM 那么读取该行第xxx个字符开始的3个字
如果没有NUM，又开始判断是否有 “MDATA”

0 2006-12-18 13:34:20

只看TA 引用举报 #3 得分 0

如何用VBA读取txt文件中特定行的下一行我用Line Input处理txt文本，并将特定字符读出存入EXCEL中，当我找到某一特定行后（用If Like Then）,由于它的下一行没有特定字符，让我无法把它读出。我的问题是：如何把特定行的下

收藏帖子

excel简单vba读写TXT的交互: 1.读取excel写TXT（VBA）Sub 导出Erwin参数文件() ' ' 导出Erwin参数文件宏 ' 'Filename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") Filename = "logical_physical_FIELD.txt" Open Application.A...

VB中如何获得txt文本文件中指定某行的内容.....: Hi: 请教一个问题: VB中如何获得txt文本文件中指定某行的内容..... 如:1.txt文件中有如下内容: 1、The first line content; 2、The second line

EXCEL VBA 读取文本文件宏: EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏

怎样读取文本文件中某个位置的内容: 本人要开发的程序需要读取文本文件中某个位置的内容.请问有什么方法请详细说明

怎样在精确定位Excel中的某一位置: 具体意思是这样的：我现有一模板，允许用户修改模板上面的字啊什么的东东，但有可能用户会插入一行一列之类的，这样怎么解决呢，是否能先在Excel中设置一些什么监视点（不知这东东的意思）之类的来用程序搜索，使得程序从数据库中取得的数据仍然能定位到原来的相应列中。rnrn各位辛苦一下吧，我是今天才注册的，也是第一次发言啦

excel VBA 怎样读取 clipboard 中的数据: 帮忙看看rnexcel2003 VBA 中那个函数可以读取 clipboard 中的数据，又怎样声明和使用。请高手举个例子。rn谢谢！！！

VBA 读取文本文件: Excel在我们的日常办公中，用到非常多。因此，对于它的脚本VBA的使用，难免也比较频繁。在此总结、整理下之前写过的一段VBA读取MAP文件，统计ECU存储空间使用情况的部分代码。该段程序，先使用Collection集合类装载读取的数据，最后统一写入将数据按照期望的格式，写入Excle表格中。这样一次性读取、写入，可以避免多次在读MAP文件和写Excel文件之间切换，增加系统资源开销。

vb读取txt文件中某行某列的数据: 有以下文件名为d:\111.txt的文件： 111 2222 33 4444 555 6666 ...... 999 888 7777 666 5555 444 ...... aaaa bbb cc

【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格: 我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下： 1111 222 222 333 333 444 接着我们进行文件的读取，并且写入到Excel中，代码如下： Sub bb() Dim a, k%, i% Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCr

怎样读取文本文件中的中文？: StreamReader Sr=File.OpenText(Server.MapPath(".\\aa.txt"));rnstring ReadFile=Sr.ReadLine();rnwhile(ReadFile!=null)rnrn TextBox1.Text+=ReadFile;rn ReadFile=Sr.ReadLine();rnrnSr.Close();rn却只能读取文本中的英文，字符，中文读不出，这是何解？

使用EXCEL中VBA进行文本文件的输出: 我想用excel中的VBA,向一个文本文件进行输出数据。rn要求可以类似于ini的输出方式，即把将要输出的数据输出到指定关键字行的后面。rn

Excel 中 VBA 常用的操作文本文件的方法: 1、调用脚本对象 Sub WriteTxt1() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.CreateTextFile("path\filename", True) f.WriteLine ("Text Message.") f.writeline(cel...

Excel vba 读取上证指数: NULL 博文链接：https://wentise.iteye.com/blog/1797184

怎样将置顶位置的文本文件中的内容读取出来?: 怎样将置顶位置的文本文件中的内容读取出来?

待读取的文本文件放置位置。。。: [size=16px]很悲剧啊。。rnrn做文件操作的验证，一直出错。。rn各位帮我解答一下EPOC下的文件系统吧。。rnrnepoc32\release\winscw\udeb\z 对应的是什么啊？rnepoc32\winscw\c 对应的是什么？rnepoc32\data\z 对应的是什么？？rnrn我想读出一个“1.txt”文件的内容：rn [color=#FF0000]_LIT(KFile,"C:\1.txt");[/color]rn1.txt应该放在哪里？rnrn问题挺多，希望大家不要见怪。。[/size]

怎样读取文本文件？: 部知怎样读取，有规律的文本文件，经请高人指点！

怎样读取文本文件的内容: 对于一行内容,我知道怎样用VC读取它,但现在要读取多行内容,并且不知道共有多少行的情况下,我该怎么办呢?我想用一个循环，但不知道该怎样判断结束条件？rn请教高手！谢谢！解决一定散分！rnrn

vba 读取txt文件写入到excel中: lz是小小菜鸟，刚接触，要做个小工具，请问诸位大侠，如何把txt中的内容读取到excel里呢，rntxt中是以逗号分隔的数据，想去掉逗号直接插入到excel每一列中，并把第一行的名头背景色标为黄色rn跪求。。。感激涕零。。。

vc怎样逐行读取某一文本文件并分析数据，谢谢！: 初学vc，请教一个比较浅显的问题：例如当前目录下有一个名为aaa.txt的纯文本文件，想做一个程序逐行读出文件内容，并判断读出内容，如该行首字符为“a”，则用messagebox显示该行内容，直到文件结束。初学vc，希望大家帮忙，谢谢大家！如有可能，能否帮我写一个例子。再次感谢！

读取文本文件里面某一部分字符串: 假设一个文本文件，里面的内容如下所示。rn现在我要判断第四行DATASET后面跟的是不是“POLYDATA”，该怎么判断呢？rn能否大概写几行代码给我参考参考亚，谢谢啦！rnrn# vtk DataFile Version 1.0rnTerrain data for Honolulu, HawaiirnASCIIrnDATASET [color=#FF0000]POLYDATA[/color]rnPOINTS 202740 floatrn0.000000 0.000000 0.000000 0.000000 30.000000 0.000000 rn0.000000 60.000000 0.000000 0.000000 90.000000 0.000000 rn0.000000 120.000000 0.000000 0.000000 150.000000 0.000000 rn0.000000 180.000000 0.000000 0.000000 210.000000 0.000000 rn0.000000 240.000000 0.000000 0.000000 270.000000 0.000000 rn0.000000 300.000000 0.000000 0.000000 330.000000 0.000000 rn0.000000 360.000000 0.000000 0.000000 390.000000 0.000000 rn0.000000 420.000000 0.000000 0.000000 450.000000 0.000000 rn0.000000 480.000000 0.000000 0.000000 510.000000 0.000000 rn0.000000 540.000000 0.000000 0.000000 570.000000 0.000000 rn0.000000 600.000000 0.000000 0.000000 630.000000 0.000000 rn0.000000 660.000000 0.000000 0.000000 690.000000 0.000000 rn0.000000 720.000000 0.000000 0.000000 750.000000 0.000000 rn0.000000 780.000000 0.000000 0.000000 810.000000 0.000000 rn0.000000 840.000000 0.000000 0.000000 870.000000 0.000000 rn0.000000 900.000000 0.000000 0.000000 930.000000 0.000000 rn0.000000 960.000000 0.000000 0.000000 990.000000 0.000000 rn0.000000 1020.000000 0.000000 0.000000 1050.000000 0.000000

EXCEL VBA 读取网络文件: 在远程面板做一个数据记录，只要给出IP地址计算机可以用http协议访问，但要用用户名和密码才能访问。请教EXCEL VBA如何读取此类文件？querytable好像不能实现rn

Excel VBA/Excel VBA: Excel VBA/Excel VBA/Excel VBA/Excel VBA

-----怎样读取表中的某一字段-----: 在网页中输入用户名和密码进行验证时，应怎样从数据库中读出该字段进行比较呢？我用了以下方法，没有实现，请高手指教！！rnprivate void Linkbutton1_Click(object sender, System.EventArgs e)rn rn string str = TextboxName.Text;rn string str1 = TextboxKey.Text;rn for(int i=1;;i++)rn rn if(str==this.dataSet11.Tables[0].Columns[2].Expression.ToString())rnResponse.Redirect("WebForm1.aspx");rn rn

【VBA研究】读取Unix下的文本文件到工作表: iamlaosong文通常在VBA中读文件文件时，习惯使用Line Input #fileNo, str的方法，这个方法对Windows下的文本文件是可以的，例如下面的代码就是读取文本文件中的数据到Excel表中： Sub ImpData1() Dim datFullName As String, rline As String Dim Arr() As String ...

VBA读取远程电脑上的文本文件？: 请教高手：rnrn如何用VBA连接远程电脑某个目录下的txt文件？？rnrn譬如远程某个IP的D盘下的文本文件如何读取？rnrn请给个链接或者例子提点一下，谢谢～～～～

VBA Fans读取和写入UTF-8格式文本文件: VBA Fans读取和写入UTF-8格式文本文件

【Excel VBA】在VBA中调用函数: 在VBA代码中直接调用计算数据 EXCEL的表函数也可以直接在VBA中直接调用执行，具体调用格式如下：调用方法1：变量对象= Application.WorksheetFunction.表函数（表函数参数）实例：Range("d8") = Application.WorksheetFunction.CountIf(Range("A1:A10"), "B")...

VBA读取EUC编码的文本文件的问题--跪求: 把EUC编码的文本文件读取到Sheet里，但是读进来的都是乱码：）加工完了还要写回去！那位大虾rn有经验请不吝赐教！！万谢

怎样打开文件？读取文本文件中的内容？？？？: 怎样打开文件？读取文本文件中的内容？？？？

怎样顺序读取文本文件中的内容？: 怎样顺序读取文本文件中的内容？比如说ww.txt中有5行内容（如下所示）：rn1rn2rn3rn4rn5rn我该怎样把文件中的内容读出来？

怎样读取TXT文本文件中的汉字（C&C++）: 如题，请教高手，C/C++ 中怎样把一个文本文件中的汉字读取出来并输出到另一个文本文件中，C/C++用什么函数可以读取文本文件中的汉字？希望高手给予指点，能给出个例子更好，谢谢！！

excel中怎样锁定某一单元格？？？: 请问各位高手：rn 在excel中怎样锁定其中一部分单元格（而不是整个表）rn就是对其中的某一单元格不能进行写操作rn不能修改数据，

请教怎样一个一个的读取文本文件中的字符: 请教怎样一个一个的读取文本文件中的字符，根据这些字符做出判断。rnrn谢谢！

怎样读取一个文本文件中的制表符'? .: 图片如下：rn用上传图片的方式上传不上来，只有用这种文法了！请大家帮忙看一下rn[img=http://blog.csdn.net/mtxxm1226/article/details/8534591][/img]

送分了！怎样读取文本文件中的123.56: 想要把文本中的数据如：LKJ 123.56rn只取123.56

Excel 导入多个文本文件 VBA编程: 激活一个Result工作簿，采用for循环将选进的文本文件导入excel，（不考虑文本文件个数超出excel限制的情况，后面我有判断），下面的代码假如不加 Range("P4:P447").ClearContents则运行错误，加上发现文件都导入了P4这一列了，这是为什么？rnWorksheets("Result").Activatern For lngCount = 1 To .SelectedItems.Countrn With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .SelectedItems(lngCount), Destination:=Range("P4:IV447"))rn .TextFileStartRow = 3rn .TextFileOtherDelimiter = "|"rn .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9)rn Range("P4:P447").ClearContentsrn .Refresh BackgroundQuery:=Falsern End Withrn以下为完整代码：rn'该函数用来判断工作表是否存在rn Function SheetExists(SName As String, Optional WB As Workbook) As Booleanrn Dim WS As Worksheetrn If WB Is Nothing Thenrn Set WB = ActiveWorkbookrn End Ifrn rn On Error Resume Nextrn SheetExists = CBool(Not WB.Sheets(SName) Is Nothing)rn End Functionrnrn'1.当前工作表后必须还有一个工作表 2.必须放在类模块中 否则都会出错rn'当导入数据大于240的时候，自动复制新的工作表，然后导入数据rnSub ImportResult()rnrn Dim lngCount As Longrn Dim FinalRow As Longrn '清除原有的数据rn FinalRow = Range("P4").End(xlDown).Rowrn Range("P4", "IV" & FinalRow & "").ClearContentsrn '若"Result2"已经存在，那么先删除它rn If SheetExists("Result2") Thenrn Worksheets("Result2").Deletern End Ifrn If SheetExists("Result3") Thenrn Worksheets("Result3").Deletern End Ifrn rn rn With Application.FileDialog(msoFileDialogOpen)rn '允许多选rn .AllowMultiSelect = Truern .Showrn lngCount = 0rn '如果选择的文本文件个数大于240，那么创建一个工作表的副本，并命名为Result2rn If .SelectedItems.Count > 240 Thenrn Sheets("Result").Copy Before:=Sheets(2)rn ActiveSheet.Name = "Result2"rn End Ifrn If .SelectedItems.Count > 480 Thenrn Sheets("Result").Copy Before:=Sheets(3)rn ActiveSheet.Name = "Result3"rn End Ifrn Worksheets("Result").Activaternrn ' Connection:="TEXT;" & strFileName, Destination:=Selectionrn For lngCount = 1 To .SelectedItems.Countrn With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .SelectedItems(lngCount), Destination:=Range("P4:IV447"))rn .TextFileStartRow = 3rn .TextFileOtherDelimiter = "|"rn .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9)rn Range("P4:P447").ClearContentsrn .Refresh BackgroundQuery:=Falsern End Withrn '如果lngCount大于240，跳转到dk处，开始导入240之后的数据rn If lngCount > 200 Thenrn GoTo dkrn End Ifrn Next lngCountrn rndk:rn '激活已经创建的Result2rn ActiveSheet.Next.Activatern rn FinalRow = Range("P4").End(xlDown).Rowrn Range("P4", "IV" & FinalRow & "").ClearContentsrn rn For lngCount = 201 To 400rn With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .SelectedItems(lngCount), Destination:=Range("P4:IV447"))rn .TextFileStartRow = 3rn .TextFileOtherDelimiter = "|"rn .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9)rn Range("P4:P447").ClearContentsrn .Refresh BackgroundQuery:=Falsern End Withrn If lngCount > 400 Thenrn GoTo dk2rn End Ifrn Next lngCountrn rndk2:rnrn ActiveSheet.Next.Activatern rn FinalRow = Range("P4").End(xlDown).Rowrn Range("P4", "IV" & FinalRow & "").ClearContentsrn rn For lngCount = 401 To .SelectedItems.Countrn With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & .SelectedItems(lngCount), Destination:=Range("P4:IV447"))rn .TextFileStartRow = 3rn .TextFileOtherDelimiter = "|"rn .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9)rn Range("P4:P447").ClearContentsrn .Refresh BackgroundQuery:=Falsern End Withrn If lngCount > 720 Thenrn GoTo dk3rn End Ifrn Next lngCountrnrn rn End Withrnrndk3:rn Set fd = NothingrnEnd Sub

Excel中，用vba怎样删除多行？: 从第1行至第100行，有很多行第2个单元格的值是“X”，我想把包含“X”的行全部删除。rn用vba代码怎样实现？rn多谢回答！

Excel VBA中怎样更改Legend的字体?: 我用的是Excel 2007rn我想把legend中的英文对象字体设置成Arial,把中文字体设置成楷体_GB2312.rn我用的是下面的代码:rnActiveChart.Legend.Font.Name = "楷体_GB2312"rnActiveChart.Legend.Font.Name = "Arial"rnrn但是,结果却把所有字体都设成了Arialrnrn应该怎么做呢?rn(我用手工的方法,先把所有字体选成楷体,然后再刷成Arial,就可以)

VBA 怎样获取EXCEL中dropdownlist内容: 现在想把excel内容读到C#的datagridrnrnexcel中有VBA控件dropdownlist，怎样在C#中得到dropdownlist所选择的值，rn（其中在dropdownlist选择时，将值赋给某个单元格的方法不可以，因为还有其他情况，）rnrn

excel中的vba的工程锁定了，怎样打开？: excel中的vba的工程锁定了，怎样打开？

怎样读取非unicode的文本文件: 如题，有那位大哥知道请不吝赐教。

关于怎样读取文本文件到数据库: 这是一张yx.txt文本rn0112 aa jj rn0234 bb kkrn0333 cc iirn0422 dd oorn0522 ff llrn0644 gg mmrn0755 aa nnrn0866 bb vvrn我要读取后导入数据库表yy中rn另xx.txt文本rn1122 aa jj rn8899 bb kkrn其中第1列为ID列导入表中是主键如果表中有数据3条ID为1122,8899和3322 到入时将txt中ID1122,8899覆盖数据库表中的数据怎么做...rnrn求详细代码谢谢rn用.NET程序做rnrn

怎样读取一个文本文件的内容?: 怎样读取一个文本文件的内容?

怎样读取这样一个文本文件？: 怎样读取类似这样一个文本文件？rn格式如下：rn001/12.1rn002/24rn003/42.5rn004/45.6rn008/75.3rn015/456rn120/62.3rnrnrn总之就是序号/数值（浮点类型）rnrn怎样读入一个序号数组char Numb[][4]和 数值fValue[] 数组中？rn用CFile类打开操作。

怎样读取一个文本文件的内容: 最好详细些

怎样读取文本文件，代码怎样写: 怎样读取文本文件，代码怎样写

读取文本文件中的内容!!!!!!: 我设定一个字符串数组，然后想循环把一个文本文件中的内容按行赋给数组的每一个成员。现在主要就是怎么循环读取文本文件中的每一行内容。

在JSP中读取文本文件！: 我想在JSP中读取文本文件，一行一行的读，该怎么做，谢谢帮忙！

读取文本文件到程序中: File docPath = new File("E:\\【阶段13】SpringMvc\\day06\\代码\\src"); for (File f : docPath.listFiles()) { //获取文件名 String fileName = f.getName(); //获取文件路径 String filePath = f.getPath(); //获取文件内容 Stri

vue中读取文本文件: 背景：有时前台上传一个文本文件需要将上传后的内容显示在下方的一个文本框或文本域中，如下此时就需要用到前台的文件读取功能了 uploadPrivateKey () { const privateKeyFile = this.$refs.uploads.uploadFiles[0].raw let reader = new FileReader() if...

读取文本文件中的数据？: 我现在就是自己创建一个sn.txt文件里面只存放1个int数据rn假设现在为3rnrn如何读取这个文本文件 输出int数据为3呢？？rnrn请教

怎样在excel中用vba的代码将一个excel中的VBA代码传送到另一个excel中: 请问专家：怎样在excel中用vba的代码将一个excel中的VBA代码传送到另一个excel中并运行这个宏代码？

读取文本文件中的信息！: 这是要求：rnFor this - final - assignment of the term, you are to write a multi-class application that reads in and processes a text file. For 9/10 points, you merely need to read in the name of a text file and then report the number of sentences in the file. (The number of sentences is the number of periods, exclamation marks (!) and question marks (?) in the file.). To scorre 10/10, you need to read in a file and then present a chart that shows the distribution of sentence lengths in the file. The lengths you should report on are: 0-19 words, and 20 or greater words. (see sample output below). rnrnYou will need to use the StringTokenizer class to do the second part of the assignment. rnrnThe text file you intend to analyze should be entered interactive by name into a Console window from the element package. rnrnYou should show output for the document (TimesDoc.txt) presented below. Note - this document contains some expressions like $50.00 - and so clearly not all "." mark the ends of sentences. Nevertheless you should proceed assuming that sentences end exactly when .,!, or? occur. rnrnrn这是文本文件TimesDoc.txt的内容：rnARIS, Dec. 6 - One day before too long, when your mobilerntelephone sounds, it could be a novel calling to recount how thernheadstrong heroine dumped the handsome heartbreaker. Or it mightrnbe a guidebook surfacing at a critical moment in a crowded bar tornprovide you with pickup lines in Spanish, French or German.rnrnThe increasing power of cellphones is fast shaping innovative formsrnof compact culture: micro-lit, phone soap operas and made-for-rnmobile dramas that can be absorbed in less time than it takes to flickrnthrough a book introduction.rnrnToday very few people are using so-called third-generation mobilernservices, or smart phones, which allow users to browse the Internetrnand watch videos. But most cellphones sold these days have colorrnscreens and the ability to receive picture messages. So mediarncompanies are reinventing quaint old formulas with the aim ofrnreaching youthful customers.rnrn"Are people going to read 'War and Peace' on their telephones?"rnasked David Harper, whose company, Wireless Ink, in Cold Spring,rnN.Y., offers Web users cellphone-size literature on such weightyrnthemes as the zombie apocalypse. "The answer is probably no. Rightrnnow the content on mobile devices is almost like early television.rnWhat they did then was to sit down and do a radio broadcast for therntelevision screen. But there was a picture. Our mission now is to getrnfeedback."rnrnOne pioneer is Media Republic, an Amsterdam company that isrnsuccessfully reaching young women with the mobile equivalent ofrnthe French "roman photo," a sentimental genre of romantic stillrnphotos and text that dates to the postwar period.rnrnDutch users register their mobile phones to follow the adventures ofrnthe hormone-driven characters of "Jong Zuid," or "Young South,"rnwhich is now in production for its fourth season. Customers receiverntwo episodes daily, each with six photographs of well-known Dutchrnactors and text describing the travails of glamorous young peoplernseeking their fortune in the big city.rnrnA weekly subscription costs about $1.50, but most of the revenuerncomes from an assortment of corporate sponsors who pay for productrnplacements, Web advertising and the exclusive rights to sponsorrn"Jong Zuid" contests and promotions.rnrnMedia Republic and a partner are to produce a similar English-rnlanguage version, which will start appearing in Australia this month,rnusing local actors and scenes. Called "My Way," it is calculated tornappeal to young women, as did the Dutch phone soap, whichrnattracted 78,000 subscribers, 68 percent of them women, with anrnaverage age of about 18.rnrnMedia Republic is planning to bring out other versions of the soaprnopera early next year in Germany and in France, where its partner,rnNX Publishing, is in the final stages of negotiation with majorrnFrench television channels, magazines and mobile telephonernoperators.rnrn"Everybody is eventually moving to video on mobile, and thisrn'roman photo' concept is a bridge for those people who are not ablernto use videos yet because they need a sophisticated telephone," saidrnJean-Michel Blottiere, NX's chief executive. "This is a step thatrncould lead us very sweetly to video."rnrnThe market researcher IDC of Framingham, Mass., predicts thatrnabout 4.5 million smart phones will be shipped to stores this year andrnestimates that the number will grow to 35 million by 2008.rnrnAlmost two-thirds of the 62 million cellphones shipped in Europe inrnthe last quarter were camera phones with color screens, according tornCanalys, a technology consulting and research firm based inrnLondon. Only 3 percent of phones sold in Europe last year werernsmart phones, but Canalys expects that number to pick uprnsubstantially next quarter.rnrnStill, that hasn't stopped a number of companies from trying tornexploit the potential market. During the Asian Film Festival thisrnmonth in Singapore, MediaCorp, a local company, announced that itrnwas spending a half-million dollars to produce 45 two-minuternepisodes of a Chinese-language mobile video drama.rnrnThe giant British mobile-phone company Vodafone has struck arnpartnership with 20th Century Fox to create a made-for-cellphonernvideo series, based on the television show "24," which will startrnappearing next month in the first of 13 countries. (It will eventuallyrnappear in the United States through Vodaphone's partner VerizonrnWireless.) A British phone manufacturer, I-Mate, has also producedrn"Cjaq," a 10-part thriller with video about five young people trappedrnin a futuristic nightclub to which they were drawn by a hoax text-rnmessage invitation.rnrnIn Japan, major publishers like Shinchosha and Kadokawa Shotenrnhave created Web sites to offer telephone reading material. Japan isrnalso home to probably the most successful telephone venture. Earlierrnthis year a mobile novel jumped from phone screens to the silverrnscreen, evolving into a feature film, "Deep Love."rnrnIn the book industry in the United States, the initial reaction tornmobile-lit is: "Are you kidding?" as one veteran put it.rnrnStill, some major New York publishing houses are pondering thernfuture. "We are paying attention, but we haven't entered the marketrnyet," said Kate Tentler, vice president and publisher for Simon &rnSchuster Online. "It would be crazy not to look at this. Smart phonesrnare everywhere and it's the fastest-growing device."rnrnIn Europe, even some old-guard publishers have jumped into thernmobile format. The Munich-based Langenscheidt Publishing Grouprnis a traditional, family-run company that would seem an unlikelyrnplayer in this market. It has been publishing dictionaries, travelrnguides and map books since 1856 and is run by the fourthrngeneration of the Langenscheidt family.rnrnThis month Langenscheidt started offering a phone-size flirtingrndictionary that is its way of promoting international understanding.rnFor about $5, the service offers 600 or so phrases in the chosenrnlanguage, and practical advice including phonetic pronunciations ofrnpolite brushoffs.rnrnThe benefit, said Ina Kaese, who manages Langenscheidt's mobilernservices, is that if you are a traveler in a foreign city in a busy bar,rnyour telephone can be your instant guide to romance. It is the mobilernequivalent of the 17th-century Cyrano de Bergerac, who famouslyrnsupplied lines to the lovelorn. But certainly not ones like this: "Willrnanybody be jealous if I invite you to a cocktail?"rnrn这是程序的运行结果：rnenter a name for a text filernTimesDocrnhere are the number of sentences of each lengthrn0 0 rn1 0rn2 0rn3 0rn4 0rn5 2rn6 0rn7 0rn8 0rn9 1rn10 0 rn11 2rn13 0rn14 0rn15 2rn16 1rn17 2rn18 2rn19 1rn20 27rnrnrn

c#中文本文件的读取: 用c#实现文本文件的读取。本程序实现了文本文件的读取，并初步判断了文件是否已经被打开。

读取文本文件中的数据!!: 在DELPHI中，如何读去文本中的数据，如何分辨文本文件的行列，例子数据如下： rn rn1 会计部章山文员 rn2 信息部力四职员 rn3 资产部小六子职员 rn5 会计部 ss 职员 rn6 会计部 rr 课负责人 rn7 会计部 kk 职员

Excel vba实例 Excel vba: Excel vba Excel vbaEXCEL实现动画的四种实例.RAR

vba问题，怎样插入图片到Excel: 最好介绍本VBA好书，在哪有得买，我在广州。rn不算很急，记得告诉我。过几天才用。rnTks

C++读取文本文件，文件名位置问题: 文件paras.hrn[code=c]rn#ifndef __paras_h__rn#define __paras_h__rnrnconst int MFactor = 20;rnconst char* FNAME = "small.txt";rnrn#endifrn[/code]rnrn文件files.cpprn[code=c]rn#include rn#include rn#include "paras.h"rn//const char* FNAME = "small.txt";rnrnvoid readSolid(void)rnrn std::ifstream file_in;rn file_in.open(FNAME);rn file_in.close();rn std::cout << " Read complete! " << std::endl;rnrn[/code]rnrn文件main.cpprn[code=c]rn#include rn#include "paras.h"rnvoid readSolid(void);rnrnint main(int argc, char** argv)rnrn readSolid();rn std::cout << "MFactor = " << MFactor << std::endl;rn return 0;rnrn[/code]rnrnrn文本文件small.txt，一行rn27.4781, 5.83141, 2.2rnrn[color=#FF0000]问题：[/color]rn当FNAME在头文件中定义时出错，而在files.cpp中定义时则没问题。如何才能在头文件paras.h定义读取的文件名？rnrnrnrn

VBA统计文件夹下EXCEL文件中某一工作簿的数据: 某一文件夹下有许多EXCEL2003的文件,每个文件基本格式一样,现在要求把其中一个叫"基础表"的工作簿的中的数据统计出来,我试了新建个空表Book1.xls,然后在其VBA中这样写[code=VB]Sub s123()rn Dim f$rn Dim i As Integerrn Dim sh1rn Set sh1 = Worksheets(1)rn rn f = Dir(ThisWorkbook.Path & "\*.xls")rn Do While f <> ""rn If f <> "Book1.xls" And f <> ThisWorkbook.Name Thenrn Workbooks.Open frn sh1.Cells(i, 1) = Workbooks(f).Sheets(1).Cells(5, 2)rn '......................rn End Ifrn Workbooks(f).Close Falsernrn Looprn rn rnEnd Sub[/code]这样不行在sh1.Cells(i, 1) = Workbooks(f).Sheets(1).Cells(5, 2)rn这一句中提示错误424,要求对象,大家指点下,该怎么写,rnrnrnrn原来的东东掉了,也想不起来了,人老了也没用了,在线等

excel vba excel vbaexcel vba: 不错的东西excel vbaexcel vbaexcel vbaexcel vba不错的东西不错的东西不错的东西不错的东西

excel中的VBA问题: VBA如何将性别显示“F”和“M”转换为“女”和“男”，因为是通过宏实现的，提取数据后显示的是“F”“M”，初学宏，所以麻烦哪位大侠帮帮忙！！

excel中VBA的使用: 遇到的问题优化1.1 优化2.0 遇到的问题在工作中遇到了一点小小的问题，需要给我负责带的班级的同学们测试男生1000米，女生800米的成绩。表格是这样的：体育成绩表序号班级姓名性别男1000

在Excel中使用VBA: 在Excel中使用VBA，进入EXCEL自动化之门

Excel中的vba编程.: 我遇到这样的一个问题在excel中有vba实现:rn例子:在a列中有 1,2,3,4,5,6,7,8,9个数字,rn 在b列中有1,2,4这3个数字.rn我想做的是,一个两重的循环,实现看看b列中的数字,在a列中有没有.rn该如何写呢?rn

Excel 中VBA文件夹操作: 很有用的操作代码！！自己亲自使用的。简单易懂，方便操作！！

excel中的vba问题。: 谁能帮帮我。在excel表中，我从一个表sheet1中复制一定范围的数据，再粘贴到别一个工作表“信息表”中，为何range("A3").select的select无效rnrnPrivate Sub CommandButton1_Click()rnRange("a2:d41").SelectrnSelection.CopyrnSheets("信息表").SelectrnRange("a3").SelectrnActiveSheet.PasternEnd Subrn

EXCEL中VBA问题: 如何在EXCEL中动态的显示图片,要求如下: rn 1,在某一CELL中输入图片的绝对路径,移开焦点后,在该cell的右边自动显示图片,并且图片可根据列的大小自动适应. rn 2,当修改路径完后,该CELL右边的图片会被删除并替换上新的图片. rn 请高手帮忙!! rn 请问EXCEL能做到吗?? rnrnrn之前在论坛中找到一个类似问题答案..由于本人不懂VBA... rn帮忙看看... rn可以参考这个:[url=http://topic.csdn.net/t/20030721/17/2054348.html]http://topic.csdn.net/t/20030721/17/2054348.html[/url]

怎么在EXCEL中用VBA控制图表的位置？: 我想在应用程序中提供把数据传到EXCEL中去制表，具体步骤：rn1。在应用程序中创建一个EXCEL文档。rn2。为EXCEL文档创建制表的宏。rn3。把数据传到EXCEL文档。rn4。控制图表的位置（因为我要把几张图表放在一起）rnrnrn我的问题是怎么样实现上述的2和4的两个步骤？rn希望大侠们能给我一个例子！！

怎样设置图片在EXCEL单元格中的位置？: RT，比如说让图片居中，先谢谢了

怎样替换一个文本文件中的部分内容？怎样在文本文件中查出一段文字的位置？: 我想在example.txt文件中找到“[domain1]”这个字符串，并用“[domain1]加换行加[User1=xbh]”来代替，怎样实现？rn其实就是在找到“[domain1]”后，在后面换行再加“[User1=xbh]”。rn顺便问一下，要是直接定位“[domain1]”这个字符串，需要怎么做？

C#中NPOI操作excel之读取和写入excel数: 一、下载引用下载需要引用的dll，即：NPOI.dll，NPOI.OOXML.dll，NPOI.OpenXml4Net.dll，ICSharpCode.SharpZipLib.dll（office2007版需要此dll）。程序集下载地址：点击打开链接二、excel转datatable类 using System; using System.D

读取Config.ini内容写入XML文件中某一特定位置[: 现有Config.ini初始化文件内容如下：rn#----------------- message connect infornapp.message.connectinfo.device=COM5rnapp.message.connectinfo.baudrate=9600rnapp.message.connectinfo.sn=WEIY-DQVO-EVUD-QODUrnrn#----------------- ftp logon infornapp.ftp.logon.info.hostip=10.111.0.220rnapp.ftp.logon.info.port=21rnapp.ftp.logon.info.username=PSMS/ftprnapp.ftp.logon.info.password=ftprnapp.ftp.logon.info.filepath=rnrn#----------------- Platform namernapp.system.common.sysname=山西公安厅网上督察平台rnrn#----------------- db connection--rnconnectionUrl=jdbc:oracle:thin:@10.111.0.220:1521:orclrnuserName=shanxirnpassWord=shanxirnrn请问我怎么将 db connection 下的属性 数据库地址用户名和密码 读取出来然后写入applicationContext.xml文件中rn替换内容为中的地址和用户名密码rnrnrnrnrnrnrnrnrnrnrnrn或者是替换reportConfig.xml文件中的链接地址和用户名rnrnrnshengrnoraclernjdbc:oracle:thin:@10.111.0.220:1521:orclrnoracle.jdbc.driver.OracleDriverrnshanxirnshanxirngbkrngbkrnrnrnrnrnrnrn江湖救急，谢谢了！！先感激下最好用JAVA解决

读取Config.ini内容写入XML文件中某一特定位置: 现有Config.ini初始化文件内容如下：rn#----------------- message connect infornapp.message.connectinfo.device=COM5rnapp.message.connectinfo.baudrate=9600rnapp.message.connectinfo.sn=WEIY-DQVO-EVUD-QODUrnrn#----------------- ftp logon infornapp.ftp.logon.info.hostip=10.111.0.220rnapp.ftp.logon.info.port=21rnapp.ftp.logon.info.username=PSMS/ftprnapp.ftp.logon.info.password=ftprnapp.ftp.logon.info.filepath=rnrn#----------------- Platform namernapp.system.common.sysname=山西公安厅网上督察平台rnrn#----------------- db connection--rnconnectionUrl=jdbc:oracle:thin:@10.111.0.220:1521:orclrnuserName=shanxirnpassWord=shanxirnrn请问我怎么将 db connection 下的属性 数据库地址用户名和密码 读取出来然后写入applicationContext.xml文件中rn替换内容为中的地址和用户名密码rnrn rn rn rn rn rn rn rn rnrnrn或者是替换reportConfig.xml文件中的链接地址和用户名rnrn rn shengrn oraclern jdbc:oracle:thin:@10.111.0.220:1521:orclrn oracle.jdbc.driver.OracleDriverrn shanxirn shanxirn gbkrn gbkrn rn rn rnrnrnrn江湖救急，谢谢了！！先感激下

c++中怎样读取文本文件中的某行中的某些字段: c++中怎样读取文本文件中的某行中的某些字段？rnrn打开了一个文本文件，ifstream fin("abc.txt"); rn我想直接获取该文本第三行第五至第七个字符，请问有没有什么好办法？

用EXCEL中的VBA读取数据库中数据结果显示#value！: 我估计是数据太长超过了7行rn因为有的能显示（低于8行的），超过8行的就不能显示rn请问怎么解决？

怎样正确取得DATAGRID某一单元格位置: 通过 datagrid.rows[10].cells[5].text这样的方式取得的值在有滚动条时不正确,有能正确取得真正位置的值的办法吗?rn

powerpoint中vba如何读取给定excel文档中的数据？: 如题。rn另一个问题是如何在指定位置(纵横像素点)输出文字？我现在的作法是动态生成一个label控件，不过觉得方法不对。如果能直接输出文字就好了。

EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门: EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门EXCEL VBA入门

怎样打开应用程序到指定屏幕的某一位置？: 怎样用vb来打开应用程序且指定到某一位置？想在打开应用程序的同时移动到该位置。如打开QQ且初始位置是屏幕的（２０，２０）上rn

读取文本文件中字符串到数组里的问题,解决必给分: 文本文件格式如下:rn125rnfdfrn548rn4t5rn4555rndrn48rn要求,把文件中符合000--999的字符串存到一个数组里,数组的长度由符合条件的字符串个数决定,其他不符合条件如字母,小于3个或大于3个的字符串都忽略掉.

VBA操作文本文件（删除行）: 我想实现VBA操作文本文件的功能，主要是把文本文件中的某些行删除，不知道应如何实现啊！

VBA用VBA实现EXCEL中的进度条: VBA用VBA实现EXCEL中的进度条

【VBA】将VBA代码插入Excel中: 将VBA代码插入到非宏Excel的Sheet表代码中，常用于达到单元格SelectionChange的效果，其他意义不大。使用目的：（1）用户能够对SelectionChange事件的有效无效进行控制。（2）可用于根据输入内容，进行数据库查询，将结果通过下拉框选择，方便用户填写。（3）代码可以生效，也可以全身而退。不影响原Excel的格式，及用户的源文件，仍是xlsx格式，没问题。插入的代...

VBA 读写文本文件: 直接采用Open函数+Line input命令 Private Sub txt_read() Dim txt As String Open "D:\dzh.txt" For Input As #1 ' '对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用， ...

读取文本文件: 对于C++读取STL文件，STL文件(Stereo lithographic)文件格式是美国3D SYSTEMS公司提出的三维实体造型系统的一个接口标准，其接口格式规范。采用三角形面片离散地近似表示三维模型，目前已被工业界认为是快速成形(rapid prototypi ng)领域的标准描述文件格式。在逆向工程、有限元分析、医学成像系统、文物保护等方面有广泛的应用。

文本文件的读取？？？: 我做了一个简单的记事本程序，用它来读取文本文件，可文本文件中的内容如果是中文，就什么都读不出来，是空白的，如果内容是英文的，就可以正常显示了。怎么回事？

文本文件的读取: 问题是这样的，我现在需要打开一个文本文件，读取其中的数据进行处理rn文本文件的格式是“浮点数，浮点数，浮点数”，一条记录结束，回车到下一行，文件有很多条这样的记录。rn如果我用MFC的Doc类中的CArchive进行操作，请问怎样比较方便？我试了下，直接ar >> a...好像不行。rn含有如果不这么使用请问用什么比较方便？rn

怎样得到当前的文本文件的指针的位置？: 能否判断：rn比如我用某一种方式打开一个文本文件，rn在某一时候的指针的指向是文件头还是文件尾？rnrn

VB6 XP风格Button下载: VB6.0 编写XP风格按钮 Button 无组件，纯代码，可扩展性好！相关下载链接：[url=//download.csdn.net/download/pkingone/2132767?utm_source=bbsseo]//download.csdn.net/download/pkingone/2132767?utm_source=bbsseo[/url]

进销存管理系统下载: 一款简单实用的进销存管理系统，课程学习、毕业设计可用相关下载链接：[url=//download.csdn.net/download/pangel00/3924852?utm_source=bbsseo]//download.csdn.net/download/pangel00/3924852?utm_source=bbsseo[/url]

java文件反编译小软件下载: 比较小巧的一款java反编译小工具，绿色，不需安装。优点就是小巧，携带方便。不用安装。相关下载链接：[url=//download.csdn.net/download/renyy99/4442051?utm_source=bbsseo]//download.csdn.net/download/renyy99/4442051?utm_source=bbsseo[/url]

相关热词 c#检测非法字符 c#双屏截图 c#中怎么关闭线程 c# 显示服务器上的图片 api嵌入窗口 c# c# 控制网页 c# encrypt c#微信网页版登录 c# login 居中 c# 考试软件

我们是很有底线的