is

你到底要TXT还是要JPG？

语句如下:memo.Text:=FileListBox.Items.GetText;如有不懂加Q:9779934

word 文件是非文本文件,内容不是以ascii码存储的，只有word 和wps 能打开，在vb里，可以引用office 类来打开word文档

"假设指定文件夹为"c:"Private Sub Command2_Click()MyPath = "c:" " 指定路径。MyName = Dir(MyPath, vbDirectory) " 找寻第一项。Do While MyName <> "" " 开始循环。 " 跳过当前的目录及上层目录。 If MyName <> "." And MyName <> ".." Then " 使用位比较来确定 MyName 代表一目录。 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName " 如果它是一个目录，将其名称显示出来。 End If End If MyName = Dir " 查找下一个目录。LoopEnd Sub

可以用DIR和listbox来做

问题应该出在这里：File1.FileName = "D:Business Trip2015" & a你没有累加啊。朋友。格式应该是：s=s & a 不是吗？

你想多了，这是不可能的。对于 FTP 地址，你可以考虑使用第三方的 FTP 控件来访问。比如 ezftp.ocx 等。

filelistbox控件就行了 简单方便直接设置file1.Path属性为目标文件夹路径

dirvelistbox filelistbox listbox组合?应该是dirvelistbox filelistbox dirlistbox组合吧?我做了个选图片的 道理一样控件有dirvelistbox filelistbox dirlistbox,2个command1个ImagePrivate Sub Command1_Click() Form12.Image1.Refresh Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click() Dim K As String If Right(Dir1.Path, 1) <> "/" Then K = Dir1.Path + "/" + File1.FileName Else K = Dir1.Path + File1.FileName End If Image1.Picture = LoadPicture(K) Form11.Image1.Picture = LoadPicture(K)End SubPrivate Sub Form_Load() Me.Top = (Screen.Height - Me.Height) / 2 Me.Left = (Screen.Width - Me.Width) / 2 Drive1.Drive = Left(App.Path, 2) File1.Pattern = "*.bmp;*.jpg;*.gif;*.jepg;*.jpeg" Image1.Stretch = TrueEnd Sub自己看看吧

不能，需要使用ListView控件

你说的是自动完成吧

delphi 自带的 DirectorListBox 组件，通常是用来进行目录选择切换用的，如果想要多选的话，可以尝试以下办法：一、使用 FileListBox 组件，并将 MultiSelect 设置为 True，FileType 设置显示文件夹：二、使用第三方组件，比如 CheckDirectoryListBoxEx 组件：

至于删除和重命名，还是用程序控制吧。用这两个函数就行：functionDeleteFile(constFileName:string):Boolean;functionRenameFile(constOldName,NewName:string):Boolean;

自己用FindFirstFile,FindNextFile,FindClose写啊

文件名的排序几乎都是按字母顺序来排的，因为实际情况可能远比a1 a2来得复杂，比如有文件名为a12b34c56，那么如果按数字来排序的话究竟是按12、34还是56来排呢？即使可以自编程，也很难实现。倒不如从文件名称的规范来入手：把所有文件按 a01、a02、a03、a04……来命名（如果文件数超过100个则是a001、a002、a003……），这样的排序结果就能达到你的要求了。

Private Sub Form_Load()Dim bln As BooleanFor i = 0 To File1.ListCount - 1 If File1.List(i) = "要搜索的文件名包括后缀名" Then bln = True Exit For End IfNextIf bln = True Then "执行搜索到的代码Else "未搜索到End IfEnd Sub

Private Sub File1_Click()Text1.Text = File1.FileNameEnd Sub

请使用FileSystemObject对象。先找到filelistbox的显示文件夹，然后用for each遍历集合，可以求出总数。

很简单的问题!listbox显示选项`可以设置filelistbox显示本文件夹(可以设置路径)的所有文件,一般用于打开文件或者获得文件名字~~

都在Win3.1下面

filelistbox.ListCount

string path = "filelistbox里文件夹的路径";string[] files = System.IO.Directory.GetFiles(path);

privatesubdrive1_change()dir1.path=drive1endsub

元素个数

Private Sub Command1_Click()File1.FileName = "*.VB"File1.RefreshEnd Sub呵呵,让它显示文件后缀名为*.VB的文件,因为没有,所以就不显示文件了..

shell “得到的路径“shell ”c:123.txt“shell ”c: otepad++ otepad++.exe c:123.txt“

for(int i=0; i<Form1->FileListBox1->Items->Count; i++) //判断该目录的每个文件.{ if( Form1->FileListBox1->Items->Strings[i].Pos(".txt") ) //查找该目录的第i个文件是为txt文档. { fopen( Form1->FileListBox1->Items->Strings[0], r); //yes，载入该txt文档. }}

你用fso对象去创建文本文件 如果指定的sfilename文件已经存在，需要先删除后才可以重新创建 你完全可以直接使用open "" for output #1 直接写入就好

在win3.1这个标签下

Private Sub File1_Click()"点击列表，读取TXT文件内容"参考MSDN OPEN语句用法Dim FileLine As String"On Error Resume NextOpen File1.Path & File1.List(Index) For Input As #1Do While Not EOF(1) Line Input #1, FileLine Text1.Text = Text1.Text & vbCrLf & FileLineLoopClose #1End SubPrivate Sub Form_Load()"Text1的MultiLine设置为True"设置FILELISTBOX文件路径，文件类型File1.Pattern = "*.txt"File1.Path = "c:"Text1.Text = ""End Sub

把filelistbox的visible设置成false，然后加入listbox用这个来显示，代码如下Private Sub Command1_Click() Set fo = CreateObject("Scripting.FileSystemObject") For i = 1 To File1.ListCount - 1 Set f = fo.GetFile(File1.List(i)) List1.AddItem (File1.List(i) & vbTab & f.DateLastModified) NextEnd Sub

filelistbox 中的pattern 设置为 "l*.*" 即可。

Private Sub Drive1_Change()Path = Split(Drive1.Drive, ":")Shell "explorer " & Path(0) & ":", vbNormalFocusEnd Sub

pattern

filelistbox.filter="文本文件|*.txt|图片|*.jpg"

是指删除文件么？代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub File1_DblClick()Kill File1.Path & "" & File1.FileNameEnd Sub＝＝＝＝＝＝＝＝＝＝＝＝＝不删除文件之清楚选中项，做不到。File没有RemoveItem，不像List。

改为RichTextBox1.LoadFile(FileListBox1.Path & "" & FileListBox1.FileName, RichTextBoxStreamType.PlainText)文件路径中的前后不要加空格，否则系统会认为你的文件名或文件夹名也是有空格的

将filelistbox里的pattern属性设置成*.txt就行了

无错。

FileListBox控件在控件工具箱上就有：通常它与Drive控件，Dir控件一起使用．见下图：那个象一张纸张的那个图标就是：FileListBox控件

建一个COmbo1,File1。代码如下。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Sub Combo1_Click()File1.Pattern = Combo1.TextEnd SubPrivate Sub Form_Load()Combo1.AddItem "*.txt"Combo1.AddItem "*.exe""...... "根据你的需要添加End Sub

List1.Clear

在mousemove 里面写代码！ Private Sub File1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)File1.ToolTipText = File1.List(File1.TopIndex + Int(Y / Form1.TextHeight("Xyz123")))End Sub此代码适用于很多list格式的控件

没错，两者其基本上都是一样的，只是操作的方法不同。list只是操作列表中的项，而FileListBox可以操作文件～这是惟一不同的地方～

for t=0 to filelist1.listcount-1 text1.text=text1.text & vbcr & vblf & filelist1.list(t)next

楼主是问选择文件的那个光标的移动么？向下移动：procedure TForm1.Button1Click(Sender: TObject);begin FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;end;下上移动：procedure TForm1.Button1Click(Sender: TObject);begin FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;end;

你试试使用File1.Name属性，看看得到什么结果

Private Sub Form_Load()File1.Pattern = "*.jpg;*.bmp;*.gif"End Sub

Private Sub File1_Click()Dim fileStr As StringDim dataStr As StringfileStr = File1.List(File1.ListIndex)Open App.Path + "" + fileStr For Input As #1Input #1, dataStrClose (1)Print dataStrEnd Sub

Private Sub List1_Click()Text1.Text = List1.ListIndex + 1End Sub

改倒数第二句即可路径 完整的文件名:dbpath = Form1.File1.Path & "" & Form1.File1.FileName只要不带扩展名的文件名：（不带路径，一般扩展名是3个字符，前加一个“.”符号，共四个，从左取（Form1.File1.FileName-4）个字符就是你要的结果如下: dbpath = Left(Form1.File1.FileName, Len(Form1.File1.FileName) - 4)

那里面是文本文件吗？private Sub File1_DblClick()Shell "NotePad " & File1.Path & "" & File1.FileName, vbNormalFocusEnd SubPrivate Sub Form_Load()File1.Path = "d:"End Sub Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenKill File1.Path & "" & File1.FileNameMsgBox " 已删除"End IfEnd Sub

你这个列表文件是怎么加载出来的，一般string[] fileNames = Directory.GetFiles(path);这样存储，然后fileNames.length就是文件个数

Dim i As String Dim j As String Dim x As Long Dim y As Integer Dim Z As StringPrivate Sub Check_Click(Index As Integer)Dim 后缀(8) As String 后缀(1) = "*.exe" 后缀(2) = "*.txt" 后缀(3) = "*.doc" 后缀(4) = "*.elx" 后缀(5) = "*.jpg" 后缀(6) = "*.htm" 后缀(7) = "*.pdh" 后缀(8) = "*.dll"For x = 0 To 7 If Check(x).Value = 1 Then For y = 0 To File1.ListCount - 1 If UCase(Right(File1.List(y), 4)) = 后缀(x + 1) Then Z = Z & ":" & 后缀(x + 1) End If Next y End IfNext x Z = Mid(Z, 2)End SubPrivate Sub Command1_Click() File1.Pattern = ZEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() i = File1.List(File1.ListIndex)If UCase(Right(i, 4)) = ".TXT" Then Open (File1.Path & "" & i) For Input As #1 Do While Not EOF(1) Line Input #1, j j = Text & j & vbCrLf LoopClose #1 j = Replace(j, ".a:", ".speed") j = Replace(j, ".b:", ".high") j = Replace(j, ".c:", ".weigth") j = Replace(j, "*", vbCrLf & "")End If RichTextBox1.Text = jEnd SubPrivate Sub Form_Load() File1.Path = Dir1.Path Dir1.Path = Drive1.Drive Drive1.Drive = "d:" Dir1.Path = "E:mengyuan"End Sub

Private Sub File1_Click()STK = Dir1.Path & "" & File1.FileNameText1.Text = STKEnd SubPrivate Sub File1_DblClick() ShellExecute hwnd, "open", STK, vbNullString, vbNullString, 1End Sub

如果是可执行文件可以直接用Shell 那就简单了 不过这里是打开任意文件 需要使用函数ShellExecute 使用这个函数需要先声明 就是在最头部的通用部分写下如下声明Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long然后就能使用这个函数了 给你提供我刚写的一个样例代码 双击打开任意文件Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_DblClick()Dim astr As StringDim myopenastr = Dir1.PathIf Right(astr, 1) <> "" Then astr = astr & ""myopen = ShellExecute(0, "open", astr & File1.FileName, "", "", 1)End Sub调试通过 绝对没问题

需要编写代码，挺简单的

MSDN里面有 示例啊 Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path & "" & File1.FileName)End SubPrivate Sub Form_Load() File1.Path = "c:"End Sub

Private Sub Command1_Click()Dim TxtFileName$If File1.ListIndex > 0 ThenTxtFileName = File1.Path & "" & File1.List(File1.ListIndex)Shell "notepad " & TxtFileName, 1End IfEnd SubPrivate Sub Command2_Click()Dim TxtFileName$If File1.ListIndex > 0 ThenTxtFileName = File1.Path & "" & File1.List(File1.ListIndex)Kill TxtFileNameEnd IfEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub File1_Click()Dim a$List1.ClearOpen File1.Path & "" & File1.List(File1.ListIndex) For Input As #1Do While Not EOF(1)Line Input #1, aIf a <> "" Then List1.AddItem aLoopClose #1End SubPrivate Sub Form_Load()File1.Path = "D:file"Command1.Caption = "修改"Command2.Caption = "删除"Command3.Caption = "退出"File1.Pattern = "*.txt"End Sub

楼上的朋友说的很对，如果你只是要控制第一个和最后一个文件文件的话就按照上面的代码写就可以了，用索引值来判断的。

File1.ListIndex = 0 filelistbox 是排序的 无法自定义位置

.net

File1.Pattern = "*.xls; *.xlsx"text1.text= Replace(Dir1.Path & "" & File1.FileName, "\", "")

罗志祥

直接调用ShellExecute API

PathChange 事件过程来响应 FileListBox 控件中路径的改变。当将包含新路径的字符串给 FileName 属性赋值时，FileListBox 控件就调用 PathChange 事件。PatternChange 事件过程来响应在 FileListBox 控件中样式的改变。当将包含新样式的字符串给 FileName 属性赋值时，FileListBox 控件将调用 PathChange 事件。

在第一个 ListBox 中，将 MultiSelect 属性设置为 1 或 2。在运行时期，在第一个 ListBox 中选择几个项，然后单击 CommandButton。 所有被选的项都显示在第二个 ListBox 中。使用不同的 MultiSelect 属性设置值来运行几次这个例子。将下面的代码粘贴到声明部分，然后按 F5 键 以运行这个程序。

最佳答案来了：Private Sub Command1_Click() Kill File1.Path & "" & File1.FileName File1.RefreshEnd SubPrivate Sub Form_Load() File1.Path = App.PathEnd Sub

Private Sub Command3_Click() File1.Path = "c:"End SubPrivate Sub Command4_Click() MsgBox File1.FileNameEnd Sub

Private Sub Command1_Click()Open App.Path & " est.txt" For Input As #1Do While Not EOF(1)Line Input #1, tempList1.AddItem tempLoopClose #1End SubPrivate Sub File1_DblClick()On Error GoTo err Picture1.Picture = LoadPicture(File1.Path & "" & File1.List(File1.ListIndex)) List1.AddItem File1.List(File1.ListIndex)err:End SubPrivate Sub Form_Load() File1.Path = App.Path "本程序所在目录End SubPrivate Sub List1_DblClick() List1.RemoveItem List1.ListIndexEnd Sub

在常见的编程语言和界面库中，"lmange" 不是一个常见的容器控件。也许这个名称是个拼写错误，或者是一个不常见的自定义控件。在常用的编程言和界面库中，下面是对其他三个控件的详细：1. Picture（图片控件）：Picture控件用于显示静态图片或动画。它通提供了一些属性和方法，可以加载、显示、缩放和处理图像文件。它一个用于展示图像的容器控件，而不具备子控件的容器功能。2. ComboBox（组合框控件）：ComboBox控件是一个常用的用户界面元素，用于显示一个下拉列表以供选择。它由一个文本框和一个下拉箭头按钮成。用户可以在输入中输入文本，也可以通过箭头选择下拉的列表项。它同时具备了文本框和下的功能，是一个常见的容器控件。3. FileListBox（文件列表框控件）：FileListBox控件用于显示指定目录下的文件列表。它通常会自动加载并显示特定目录下的文件，可以根据筛选条件显示特定类型的。用户可以通过点击文件列表中的文件来选择文件。FileListBox控件提供了一些属性和方法，可于操作文件列表它通常被用作容器控件，用于存放展示特定目录下文件列表的子控件。注意，上述说明是基于一般情况，在不的编程语言和界面库中，这些控件的名称和功能可能会有略微的差异。在具体的编程语境中，查阅相关的编程文档或官方考资料是获取最准和具体信息的最佳途

我建议这么幼稚的问题自己解决吧,别让自已变太懒了,如果这样也想写好程序,我建议还是趁早转行吧.

在窗体控件中放置一个FileListBox控件和一个TextBox控件，将FileListBox的Pattern属性改为“*.txt”，将TextBox的MultiLine属性改为True。将以下语句复制到代码中OptionExplicitPrivateSubFile1_Click()DimtFileNameAsString,tFileNumberAsInteger,tLoadAsString,tTextAsStringtFileName=Replace(File1.Path&""&File1.FileName,"\","")tFileNumber=FreeFileOpentFileNameForInputAs#tFileNumberDoWhileNotEOF(tFileNumber)LineInput#tFileNumber,tLoadtText=tText&tLoad&vbCrLfDoEventsLoopClose#tFileNumberText1.Text=tTextEndSub运行，然后在文件列表框里选择文件后就会在Text1控件里显示文件内容。然后就是没有做DriveListBox和DirListBox的链接，这个你应该自己会吧？既然你没问我就权当你会了哦。:)

前者

there be句型中,当句子中的主语是单数或者不可数名词时,用there is;当句子中的主语是可数名词的复数形式时,用there are.There be 句型是英语中常用句型， 意思是“有”，表示“人或事物的存在”或“某地有某物”。There在此结构中是引导词，已经没有副词“那里”的含义There be 句型的构成形式一般为“There is/are + 某物/人 +某地/时”，表示某地/时有某物/人

。。。有。。。

there can be 是推断句,表示： 可能有...There be表示存在的“有”,他有各种时态,如: 一般现在时：there is/are；一般过去时：therewas/were 一般将来时：there will be；过去将来时：there would be； 现在完成时：there has/have been；过去完成时：there had been 要特别注意be going to 在there be 句型中的运用.例如： There is going to be a film in the meeting hall.学校礼堂里将有一场电影. 还可扩展为许多其它句型,下面笔者对There be句型的扩展作一归纳. 一There be+主语 这种句式表示事物的客观存在,There be放在句首,而把真正的主语放在后面,可以用来表示现在时、过去时、完成时和将来时.例如: There is a boy on the playground.操场上有个男孩. There has been a lot of rain this month. 这个月雨水很多. There will be an announcement soon. 不久会发布告. 二,There are + n（复数名词/不可数名词）+ and + n（复数名词/不可数名词） 该句型表示同一类人或物的不同性质,尤其表示有好坏优劣之分,意为“有各种各样的”、“种种不一”等.如： There are friends and friends. 朋友有种种,有益友,有损友. There is tea and tea. 茶叶有好有差. 三 There be+名词+分词 这种句式中分词可以是现在分词,也可以是过去分词.doing表示动作和前面名词有主谓关系,过去分词done和前面名词有被动关系.如： There is a man sitting on the fence. 有个人正坐在篱笆上. There was a car stolen last night. 昨晚有辆车被偷了. 这种句式可以用"主语+be+分词"这一结构来代替.例如: There is a boy playing with a puppy in the yard. ( = A boy is playing witha puppy in the yard.) 一个男孩正在院子里和一只小狗玩耍. There has been more money spent on armaments than on famine relief. (=More money has been spent on armaments than on famine relief.) 花在军备上的钱比花在救灾上的钱还多. 四, There be+名词+动词不定式 这种句式中的及物动词(动词不定式)也可改成被动式, 意为"(没)有……要做".例如: There is a lot of work to do (to be done). 有许多工作要做. There was no time to wait for you. 没有时间再等你了. 注意：There is nothing to do与There is nothing to be done. 含义不同.前者意为:"无事可做",后者意为"没有办法".试比较: There is nothing to do-I"m bored. 无事可做--我感到闷得慌.(=There is nothing to entertain me.) 没有什么活动来消遣. There is nothing to be done-we"ll have to buy another one. 没有办法--我们只好另外买一个了.(= There is no way off putting it right.) 五 There is+no+动名词 这种句式可与"It is impossible+动词不定式"替换,意为"无法做某事".例如: There is no stopping him. (=It is impossible to stop him.)无法阻止他. There is no guessing what will happen. 无法猜到将会发生什么. 六, There is(no) need for+名词 该句式意为"(不)需要……".例如: There is no need for anxiety. 不需要担心. There is a great need for a book on this subject. 非常需要有一本关于这个题目的书. 七, There is no need+动词不定式.例如: There is no need for him to come.不需要他来了. There is no need (for you) to start yet.(你)现在还没有必要动身. 八,There is no use+动名词 该句式可与"It is no use+动名词"互换,意为"……无用(无济于事)".例如: There is no use waiting any longer.(=It is no use waiting any longer.) 再等下去是没有用的. There is no use(in) offering the olive branch now. 现在想和解也无济于事了. 九, There is nothing / not anything like… 该句型中“nothing/ not anything like…”相当于“nothing / not anything better / more suitable than…”,意为“没有什么比……更好/更合适/更有效了”.如： There is nothing like a book for taking you out of yourself. 没有什么比书更能使你解脱自己了. There is nothing like walking as a means of keeping fit. 作为保持健康的方法,没有什么比散步更好的了. 十, There is nothing more...than 该句式意为"再……不过了".例如: There is nothing more dangerous than an illusion of security. 太平无事的想法是再危险不过的了. 十一,There is no(not any) point in+动名词 该句式意为:"……是没有意义(思)的."例如: There is no point in doing so. 这样做是没有意义的. There is not any point in harping on the same old tune. 没有必要再重复这一套. 十二,情态动词及ought to,have to,used to用在there be结构中.例如: There must be something wrong with the machine,for it doesn"t run well. 机器一定出了毛病,因为他运转不正常. There oughtn"t to be too great a difference in our views. 我们的看法不应该存在太大的分歧. There might be some good songs after all this trash. 在播放了这些乱七八糟的歌曲之后,可能会放几首好歌. If the power hadn"t been cut off so quickly, there could have been a big fire. 要不是迅速切断电源,可能会引发一场大火. 十三,There is a possibility of(或that) 该句式表示"有可能".例如: There is a possibility of my going to Denmark. (= There is a possibility that I may be able to go to Denmark.) 我有可能去丹麦. 十四, There+人称代词+come(go)/there come(go)+名词 该句式是there作感叹词放在句首.如果主语是人称代词,则动词放在其后;如果主语是名词,则动词放在其前.例如: There they come!他们来了! There comes the bus at last!公共汽车终于来啦! 十五,. There+动词 这种句式只限于表示存在某种状态、发生某种事或某事、某人到达等动词,意义比there be 结构格更为生动贴切.如live,lie seem,appear,happen tand,exist,arise,enter,come,go,remain,exist,rise,occur,flow,arrive,enter,follow等.而不适用于表示一般具体行动的动词.例如: Many years ago,there lived an emperor who cared more for clothes than for anything else. 许多年前有位皇帝热衷于漂亮的衣服胜过其他东西. There stands a tall building across the river over there. 河对面耸立着一幢高层建筑物. There goes the bell.铃响了. There comes a knock at the door.有人敲门. There remains one question to be discussed.还剩一个问题要讨论. There seems to be something wrong about it. 这事好像有点儿不大对头. There appears to be no one who can answer this question. 看来没人能够回答这个问题. There will follow an interval of five minutes. 随后将有五分钟的休息. 十六,There are/is certain（sure,likely）to be该结构的意义为肯定有/可能有.例如： Thereare like to be more difficulties than you were prepared for. 很可能会遇到你预想不到的困难. There are sure to be a restaurant some where. 某处肯定有个饭店. 十七,There +be+ed分词+to be常用动词有：say,expect,believe,consider,think,mean,构成信息来源模糊表达式.例如： There is/are said to be a number of wounded on both sides. 据说双方都有不少受伤. There is/are expected to be an exciting film next week. 预计下周有一步精彩电影上演. 十八v + there to be该结构中的动词往往是：expect, want, intend, mean, consider, like, hate, prefer等接不定式做宾语的动词.如： We don"t want there to be any students falling behind. 我们不想有任何学生落后. I should prefer there tobe no disscusion.我希望没有讨论. 动词let后接there be 做宾语补足语.如： Let there be no mis under standing.不要产生误会. 十九There being/having been是独立主格结构,在句中作状语.如： There having been no rain for a long time, the ground was burned black by the sun. 好长时间未下雨,大地都给太阳烤焦了. 二十There（not） being/there（not） having been用作ing分词的复合结构在句中做主语或宾语.例如： There being a bus stop so near the house is an advantage.（做主语） 公共汽车站离家这末近是一很有利的条件. I dreamed of there being a holiday tomorrow. 我梦想明天有一假日. 二十一,for ther to be 为不定式复合结构例如： For there to be no late comers was unusual. 没人迟到这是不寻常的事. It is not cold enough for there to be frost. 天还不够冷不足以有霜冻. 二十二,There is nothing for it but to do sth 该句型相当于“There is no choice but to do sth”,意为“别无他法,只能……”.如： There is nothing for it but to do what is required. 只能按要求去做了,别无他法.（=I have no choice but to do what it required.）

干什么

可以是可数,也可以是不可数,意思不同的 呵呵 复数直接加s 词典里的： /ru026au02c8vu026au0292n; ru026a`vu026au0292u0259n/ n (a) [U] ~ (for sth) revising or being revised 复查; 校订; 修正; 改正; 复习: Our budget needs drastic revision. 我们的预算需作重大修改. * (Brit) do some revision for the exam/some exam revision 为准备考试而复习. (b) [C] instance of this 复查; 校订; 修正; 改正; 复习: undergo a final revision 经最后修订. (c) [C] thing that has been revised 经修订或改正之物; 修订本; 修订版: submit the revision of a novel for publication 送交小说的修订本准备出版.

意思为校订本; 修订本时，可数，revisions。如：after four revisions，经过四次修订